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Herselt , augustus ‘84 


Beste leden, 


Mogelijk heb je de laatste weken niet zoveel tijd gespendeerd achter het 
toetsenbord en zat je ergens in het zuiden van een heerlijk zonnetje te genieten. 
Dit nummer bevat weer heel wat materiaal dat U kan uitproberen : Frank spit in 
zijn programmeertechnieken MODE © overhoop, Nico geeft een voorbeeldprogramma 
waarmee je op een vlotte manier uw eigen DATABASE kan creeren : van ARRAY naar 
EDIT en weer terug zonder problemen. Wij hebben dit programma alvast aangepast 
om onze artikelen-voorraad in te voeren : het programma berekende voor ons dat 
er nog 550 pagina’s materiaal kant-en-klaar voorradig zijn. Volgende keer willen 
we deze lijst publiceren, uw suggesties kunnen dan mee de inhoud van ons 
tijdschrift bepalen. Luc vertelt in zijn brief en zijn programma’s hoe hij zijn 
DAI laat communiceren met mini’s zoals CDC en PDP. Armand gaat verder met zijn 
cursus over microprocessoren, als deze reeks afgesloten is gaat hij verder met 
een speciale reeks over het gebruik van de DCE-bus . Tegen die tijd willen we 
terug een serie DCE-interface kaarten laten produceren, als U de software- 
bestelkaart instuurt kan U melden of U later een DCE-interface kaart zou willen 
bestellen, we zullen dan hiermee rekening houden bij onze bestellingen, de 
vorige reeks is al lang uitgeput ! Ger geeft nog enige toelichtingen en tips 
i.v.m. FWP ,voor suggesties en vragen kan U Ger persoonlijk contacteren. Willy 
brengt in zijn verhaal het vervolg van de DBASIC-specificaties , er zijn 
ondertussen nog een paar verbeteringen en uitbreidingen aangebracht ,  DBASIC 
gebruikers krijgen binnenkort een nieuwe versie toegezonden. Les Dâl-istes 
francophones (et les autres) se rencontrent le 2 octobre a Nivelles : un 
initiatif magnifique de F.Duluins et C.Poels . On peut aussi constater que Cedric 
a repris les activites DAInamiques en France : la il y a encore beaucoup 
d'utilisateurs qui ne connaissent pas notre club : il ne doivent plus rester 
isoles : DAInamic France est la pour les aider ! Aussi pour les francophones , 
Marc explique les commandes KENDOS (il y a deja plusieurs systemes KENDOS en 
France !). Wegens plaatsgebrek op deze eerste pagina brengen we de rest van 
ons verhaal in het engels. 


tot ziens in Nivelles of Utrecht .., 
Dear members, 


In this issue you can find a lot of articles and many new splendid software 
packages. If last year we were 3 years old then we have to celebrate our 4th 
anniversary this issue. The 3th anniversary software offer was a big success, so 
why not reapeat the action this year ? The formule is slightly different : the 
reduction you get depends on the total amount of your order : 

if your order exceeds 1000 Bfr : reduction is 19 X 

if your order exceeds 2000 Bfr : reduction is 29 % 

if your order exceeds 4000 Bfr : reduction is 30 X 

if your order exceeds 8000 Bfr : reduction is 40 % So : indicate the titles you 
want, make the total sum and then deduct 10,20,30 or 40 % depending on your 
total amount. The extra 159 Bfr for DCR-cassettes has to be add afterwards. This 
is the list with prices of the new packages (audio): 


EDUCATON ὁ : 1600 Bfr EDUCATION 7 : 1000 Bfr EDUCATION B : 1000 Bfr 
FROGGER 5 1250 Bfr EAGLES 5 1996 Bfr PHOENIX Σ 1250 Bfr 
TANGRAM : 750 Bfr TURTLE-BASIC: 1250 Bfr TOOLKIT & — : 1000 Bfr 


Please allow 2 or 3 weeks for delivery, the offer is valid till 20 october 1984. 
Good news for graphics freaks : Mico has almost finished the interface and 
software for digitising pictures from camera or video recorder, first results 
in next issue .. 

DAI dai ... 


Wilfried Hermans 
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P ROG RAM ME ER T E C HN X EK ΕΝ 


In het tweede deel van de MODE 6 bespreking wil ik beginnen met de scroll te 
behandelen. Dit begin voornamelijk omdat ik U vorig maal liet zitten met een 
verwijzing naar dit artikel. Ik POKE'te iets in #8C en #8D waarvan U de reden 
misschien niet duidelijk was. Als U die betreffende POKE's heeft weggelaten , 
heeft U gezien dat zij wel degelijk nodig waren. 


HEE In het programma PAGE SWAP uit de vorige DAInamic kunt U de regels  ### 
TIP 100,110 en 120 respectievelijk 200,210 en 220 wel combineren maar TIP 
tt het effect is minder fraai. Een voor de hand liggende oplossing is Hee 
een COLORT 8 8 8 8 van te voren en een COLORT 8 0 6 8 achteraf. 
Dit werkt echter NIET in een niet standaard geformatteerde MODE ©. 


We kunnen de scrollarea, dat is het gebied dat scrollt , zeer eenvoudig tot 
slechts enkele regels van het beeld beperken. Dit kan handig zijn bij program- 
ma's, die een doorlopende 'conversatie' hebben en daarnaast bv een een keuze- 
menu. Ik denk hierbij bv aan een avonturenspel waarbij steeds verschillende 
teksten worden gegeven maar waar een inventarislijst steeds bijgewerkt boven 
in beeld staat en blijft staan. Ook bij administratieve toepassingen kan dit 
erg practisch blijken te zijn. De adressen van het gebied, dat wordt gescrolld 
vinden we in de bytes 484 t/m 48D. Het beginadres staat in #8A en #8B in omge- 
keerde volgorde, zoals gebruikelijk bij adressen bij een 8080-processor en die 
heeft de DAI nu eenmaal. Het eindadres analoog in #8C en 48D. 

Als we de bovenste regel niet willen laten meescrollen moeten we het adres in 
#8A, #85 dus vervangen door een adres, dat #86 (= de regellengte ) kleiner is. 
Willen we een of meer regels aan de onderkant unscrolled laten zullen we het 
adres in #8C,#8D dus met een of meer keren #86 moeten vermeerderen. Het een en 
ander wordt nu verduidelijkt in een demonstratieprogramma. 





10 REM SCROLLING AREA / F.H. DRUIJFF / 6/84 
26 REM THIS PROGRAM WILL SHOW YOU WHAT YOU 

3e REM HAVE TO DO IN ORDER TO GET ONLY Α PART 
40 REM OF THE SCREEN SCROLLS. 

3e TOPSCREEN=#BFEF : LINELENGTH=#86 

5a INPUT "LINES UNSCROLLED AT TOP ";TOP:PRINT 
79 INPUT "LINES UNSCROLLED AT BOTTOM “5 BOTTOM: PRINT 
ga IF TOP+BOTTOM>22 THEN PRINT "ΟΟΘΟΗΗΗ NO !":GOTO 60 
90 LIST 

196 T=TOPSCREEN-TOP#*L INELENGTH 

119 POKE #8A,T MOD 256 

120 POKE 8988, Τ/256 

130 B=TOPSCREEN- (24-BOTTOM) #L INELENGTH 

140 POKE #8C,B MOD 256 

150 POKE #8D,B/256 

168 REM WARNING !!!!! 

170 REM DO NOT FILL 48Α & 888 AND 180 & #8D 
186 REM WITH THE SAME DATA. 

190 REM ?CHR$(12) , MODE 9 , LIST , EDIT 

296 REM (AS WELL AS [TAB] FOR DCR OWNERS) 

219 REM WILL RESTORE THE *NORMAL’ SCROLL. 

220 CURSOR @,23~-BOTTOM 

230 LIST -:GOTO 250 


Ik hoop dat na de bovenstaande uitleg gelezen te hebben, iedereen nu duidelijk 
is dat als we het aantal regels in MODE 9 willen beperken en / of uitbreiden, 
het nodig is om de scrollarea in #84 t/m #8D aan te passen. 
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De scroll gaat erg vreemde dingen doen als U de adressen niet juist ingeeft. 
Zoals echter in het laatste programma ook staat wordt de ‘normale’ MODE @ weer 
hersteld door een MODE @ instructie wat erg voor de hand ligt. Maar ook LIST 
(niets erachter !) en ?CHR$(12) en EDIT verzorgen dit. DCR-bezitters kunnen 
met de CTABJ-toets ?CHR$(12)3 (inderdaad met $ ) ingeven en kunnen dat dus ge- 
bruiken, Een opmerking, die eigenlijk bij het artikel over PRINT thuishoort, 
Wil ik nu al maken: De CURSOR-instructie werkt relatief ten opzichte van de 
onderste regel die gescrolled wordt. Zet U de bovenste 5 regels vast, dan is 
de eerste positie, die tot de scrollarea behoort, te bereiken met CURSOR 9,18. 
Dit is net zo als we normaal hebben, Zet U echter de onderste 5 regels vast 


dan is diezelfde beeldpositie ineens te vinden met- CURSOR 9,13 !!! 


Er blijft voor MODE 9 nog een groot onderwerp over . Het zijn de verschillende 
lettergroottes. We hebben daarin deze artikelen al eens eerder over gesproken 
maar toen liet ik het bij wat aanwijzingen voor een aankondiging. 


ανά : LIST kan zowel in direct mode als in een programma gebruikt worden. ##* 

TIP LIST geeft automatisch een schoon MODE ὁ beeld. Wilt U dit juist TIP 

eee miet dan geeft U een LIST-.. U krijgt dan wel de gehele listing κά 
maar geen MODE @:PRINT CHR#(12)5.. Ook handig in splitmodes 


Nu wil ik laten zien dat U ook een geheel beeld met grotere, grote en reuze 
letters kunt- maken. Eventueel zelfs per regel verschillend. De theorie moet na 
de vorige onderwerpen niet al te ingewikkeld meer zijn, Elke regel heeft zijn 
eigen regelcontrolebytes waarvan de eerste steeds in bit 4 & 5 de resolutie 
dus de grootte aangeeft, Tot op dit moment zijn we uitgegaan van de hoogste 
resolutie en gebruikten daarvoor li, Normaal zijn de bytes #BFEF ~- .. x #86 
dan ook 874. (4 kleuren letters, hoogste resolutie en regelhoogte 11) We kün- 
nen echter de resolutie. veranderen door 468, #5A of #4A in #BFEF te POKE'n. 
Maar met deze nieuwe lettergroottes hebben. we vanzelfsprekend ook andere re- 
gellengtes. De regellengtes zijn vreemd genoeg niet identiek aan die van de 
grafische modes, We zullen het beeld in zijn geheel zelf moeten opbouwen. 

Nico Looije maakte reeds een programma, dat alle lettergroottes, inclusief de 
scroll en EDIT, toestaat. Dit is vooral voor demonstratie doeleinden (school) 
erg handig, Het zal op een komende toolkit uitgebracht worden. 

In de twee voorbeeld programma's heb ik bewust de gehele opbouw verzorgd . Het 
is namelijk mogelijk om gebruik te maken van MODE € ook al gebruiken we hem 
niet in de standaardvorm. Bij de opbouw moeteh we de karakterbytes vullen met 
spaties (#20 = 32) of het gewenste karakter en de kleurcontrolebyte met o, Te- 
vens moeten we de regelcontrolebytes ορ de juiste afstand van elkaar zetten. 
We kunnen nu snelheidswinst boeken door na MODE @ eerst de oude regelcontrole- 
bytes te veranderen in #20 en 9 en dan alleen de nieuwe regelcontrolebytes te 
plaatsen, 


16 REM CHARACTERS IN SIZES / F.H, DRUIJFF - 5/84 
20 MODE OiPRINT CHR$(12)::POKE #74,0:POKE #75,255:COLORT 8 © 8 15 
36 INPUT "TYPE SIZE "1T:ON T GOTO 31,32,33,34:G0T0 36 
34 LM=3: NC=60:L=134:P=#7A: BOTO 40 
32 LM=2:NC=40sL=9@:P=#4A2 GOTO: 49 
33 LM=2:NC=20:L=40:P=#54:GOT0 40 
$40 "LMel:NCS10:Le26:P-44A 
40 S=#BFEF: CURSOR @,9:COLORT 8888... 
5e FOR 158 TO S-234L STEP -L:POKE I,P:POKE 1-1, 840 
66 FOR JeI-2 TO I-L STEP -2:POKE J,820:POKE J-1,@sNEXT:NEXT 
T 8 06 8 15:150 
Ze αν τν T$:IF Té="" GOTO 1@@:IF T$="ZZZ" GOTO 200 
110 LT-LEN(T$): IF LTONC THEN T$sLEFTS (T$, NC) ΣΙ ΤΟΝΟ 
120 Bagr Ie MD 
156 FOR Zeg "0 LT-1sPOKE B-J-J, AGC(RIGHTS (TS,LT-J)) :NEXT:GOTO 100 
200 IF GETC=0 GOTO 200:RESTÜRE:MODE 6:GOTO 39 


*PROGRAMMEERTECHNIEKEN® 





990 DATA 1234567870 12345678901 2345678901 2345678901 2345678901 234567890 


9718 DATA THE FIRST LINE IS HERE,THE SECOND LINE 

926 DATA TO DEMONSTRATE, VERY CLEARLY 

350 DATA IT'S WORKING. ,SKIPING LINES 

948 DATA SURELY IS POSSIBLE !!,,,,,CONVINCED ? 

359 DATA ONE, TWO, THREE 

9760 DATA 123456789012345678901234567890123455789012345678901234557890 
970 DATA ZZZ 


Verklaring de gebruikte variabelen : T = Type character 
LM = Left Margin 3 NC = Number of Characters ; L = line Length 1 P = Poke info 
S = Start i LT = Length of T$ j B = Byte to poke 3 I & J counters 


En nu door elkaar heen in afwisselende groottes. 


Deze programma's zijn eenvoudig aan te passen aan invoer vanaf het toetsenbord, 
Probeert U dat ook eens te doen. 


19 REM DIFFERENT SIZES CHARACTERS / F.H. DRUIJFF - 5/84 

20 MODE @:PRINT CHR$(I2): :POKE #74, 0:POKE 475,255:COLORT 8 0 8 15 

39 S=#RFEF : LC=6 

46 S#=" 12345678901 2345678901 23456789012345678901 2345678901 234567090" 

5e LO=LC+1:T=RND(4)+1:0N T GOTO 60,70,80,90 

60 LM=6:NC#60:L=134:CB=#7A:GOTO 100. 

79 LM=4;NC=40:L=90:CB=#6A:GOTO 199 

ge LMz2:NCz20:1248:CB-454:GOTD 100 

90 LMz6:NCz10:L226:CB-84A:GDTO 160 

199 POKE S,CB:POKE S~1, 840 

11e TS=LEFT$ (8$, NC) ΣΙ ΤΕΙ ΕΝ (T$) 

129 FOR J=@ TO LT+LT-2 STEP 2:T-8-J-LM-2:POKE T,ASC(RIGHTS(T#,LT-J/2) ) 
ΣΡΟΚΕ T-1,0:NEXT 

159 8z8-L:IF LC<24 GOTO 56 

14e GOTO 146 


Bij normaal intikken kunt U intikken t/m de zestigste positie.De cursor staat 
hierna op de een en zestigste, maar als U intikt komt het karakter op de vol- 
gende regel, Valse voorlichting van de cursor. Blijft U doortikken kunt U niet 
zoals veel wordt verondersteld 256 karakters intikken maar slechts 219 (plus 
[BREAK] of [RETURNI). De BREAK geeft dan trouwens GEEN !, Vervelender is dat 
in EDIT er wel 256 karakters ingetikt kunnen: worden. Sterker nog, er kunnen er 
veel meer ingetikt worden, die zijn niet op het scherm zichtbaar, maar komen 
wel in de EDIT-buffer terecht. 


d Dok als U vergrote karakters heeft gemaakt kunt U soms de tekst dat 
ΤΙΡ op de juiste plaats krijgen door hem domweg te PRINT'en na een TIP 
dx CURSOR-instructie. Het bepalen van de juiste cursorpositie is Jd 


meestal erg ingewikeld. Er kan beter op goed geluk wat geprobeerd 
worden. Door een voor de DAI foutief regeleindadres respectievelijk 
regellengte zal het vaak onmogelijk blijken. 


Als we bepaalde delen van de tekst willen onderstrepen, kan dit ορ de volgende 
manier. We creeeren een MODE 6 met extra regels zoals het programma PAGE SWAP. 
Willen we nu een woord onderstrepen, dan zetten we in de minimale-regel-hoogte 


regel onder het betrokken woord allemaal CHRS(#FF)’n, die bij minimale regel- 


hoogte alleen bestaan uit een klein liggend streepje. Pas hier echter mee op, 
daar de scroll deze regel als normale regel meeneemt. En uw zo extra fraaie 
tekst veranderd in een grote rotzooi, zeker als U ook andere lettergroottes 
hebt gebruikt, Aan de andere. kant kunt U het geheel nog verfraaien door de 
streepjes van een andere kleur te maken dan de tekst. Een waarschuwing nog bij 
het gebruik van een zestienkleuren mode : de kleur kan gecontinueerd worden in 
het volgende veld. Dus niet klakkeloos voor~ en achtergrondkleur combineren, 
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ΑΚ ik 


DE Na UT begint U op een schoon beeld, maar de scroll is niet aangepast. TIP 
Kik 


Tot slot wilde ik eigenlijk zonder veel commentaar een aandig *teken* programma 
geven waarmee U in MODE @ tekenen kunt. Het programma is verre van af. Er zit- 
ten nog meerdere onvolkomenheden aan, U kunt nauwelijks 'editten' en een teke- 
ning die af is kunt U niet bewaren of later reproduceren . Maar al deze zaken 
kan de geinterresseerde DAI-er zelf inbouwen. Maakt U een versie die echt goed 
te gebruiken is (gebruikersvriendelijk) zendt hem mij dan toe . Als hij inder- 
daad goed is komt hij in een volgende collectie van DAInamic. 


19 GOTO 200:REM DRAWING IN MODE © / F.H. DRUIJFF - 2/84 
20 H=GETC: IF H=@ GOTO 20:IF H>47 AND Η(57 GOTO 196 

30 IF ΗΞΒ THEN PRINT " "3 

40 IF Heié THEN Y=Y+1:1F Y>21 THEN Y=21 

590 IF Hei? THEN YsY-1:1F Y<2 THEN Ve? 

60 IF He18 THEN XeX-1:IF X<@ THEN X=@ 

79 IF H219 THEN XzX41:1F ΧΡ59 THEN X=59 

ge CURSOR X,Y:GO0TO 20 

199 IeGETC: ΙΕ I=@ GOTO 100 

119 PRINT CHR$((H-48) 10*(I-48)) $:GOTO 20 


Initialisatie van het programma. 
De te gebruiken tekens worden met hun ASCII-code in beeld gebracht. 


200 MODE @:PRINT CHRS(12):COLORT 8 @ 0 0 
210 CURSOR I4341,23:PRINT CHR$ (I); 
220 CURSOR I#3,22:PRINT I} 
230 Iml+irIF I412 GOTO 210 
240 1545 
250 CURSOR I#3+1,23:PRINT CHR$11); 
269 CURSOR I#3,22:PRINT Ij 
279 Iml+lsir 1<19 BOTO 250 
280 CURSOR I43-56,1:PRINT CHR$(DJj 
290 CURSOR I43-57,0:PRINT 13 
300 IsI-1:IF I<38 GOTO 280 
319 X=30:Y=11:CURSOR X,Y:GOTO 26 
PII dem 


TIP Alle besproken technieken kunnen ook in de splitmodes gebruikt Ph 
OI 


En onder dankzegging voor de tips , die ik kreeg van Nico Looije , Wilfried 
Hermans en Alain Mariatte, eindig ik met de mededeling dat ik de volgende keer 
het zal hebben over PRINT. Sommige zaken overlappen elkaar enigzins en ik zal 
dan misschien bepaalde zaken niet behandeld hebben, die er naar uw idee wel in 
thuishoren. Ik hoop voor U dat die dan de volgende keer aan bod komen 


Frank H. Druijff 
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Did you ever want to have a userfriendly INPUT routine in 
your databaseprogram? The program underneath shows vou haw 
to use the EDIT facilities of the DAI by using 10 bytes 
machineianguage and some POKE's together with PRINT and 
READ statements. An array will be sent to the editbuffer 
and then you can manipulate the array. After pressing " you 
will leave the editbuffer leaving vou three choices: 


1 


abort routine no changes will be made 


RETURN back ta the editbuffer 
ether key read the editbuffer into the array 
Here ie the program together with ' comments!: 


2. LO-iOl"s BOTTOM, 


c TOP 


S0 REM --------- PRINT ARRAY INTO EDITBUFFER -------------------.-. 
60 PORE &131,2:FÜR ROW=BOTTOM τα TOP:FOR COLUMN-O TO 2 


H output to editouffer! 
76 PRINT VS (ROW, COLUMN) 5 CHRS(9+COLUMN/2#4) 2: NEXTs NEXT 
print arraysiements fallowed by TAB separators ending 
with carriagereturni 
[515 PRINT CHR${O) SPOKE 8131. 1 
print endmarker chr$(0):output to screen again! 
DO REM ----------------------- PERFORM EDIT —————————————————— 
100 CALLM Sara 
$ initialise editor: 
130  KEY-BETC:IF KEY=0 THEN 110: IF KEY<>126 THEN CALLM HFT, 
c KEY: GOTO 110 
wait until a key is pressed if it is * then abort! 
120 PRINT CHRE (1S) 
130 EEY=GETC:IF KEY=126 THEN 250: IF KEY-13 THEN 100:1F KEY 
[M =0 THEN i30 
E ~ no changes/RETURN restart/OTHER KEY read! 
150 REM -----------! READ EDITBUFFER INTO ΘΒΒΑΥ------------------- 
150 PRINT "READING'":EDBGN-EDEGN--1 
decrement start of editbuffer! 
FOR ROW=S0TTOM TO 10: CDLUMN-O 
start at first row and first column of edi 
POKE $291.EDBGN IAND #FF:POKE #392,EDBEN SHR Β 
set the READ pointer to the start editbuffer! 
FOR EDPTR-EDBGN-1 TO 4BZX40: TF PEER(EDPTR) #0 THEN NEXT 
find a separator Olend), Síteb) or i3í(carret)! 
IF PEEKIEDPTR)-O THEN 250 
ort if at end of editbuffer! 
OKE EDBBN.EDPTR-EDBGN-1:PÜKE #123, #0: EDEGN=EDPTR 
store the length before the string to READ {at 
the separator):set the inputcount to the first. 
character):update the start for the next READ! 
210 READ VS (ROW, COLUMN) : COLUMN= (COLUMN+1) MOD X 
READ: increment column if too much columns reREAD from 
column of 
220 IF PEEK CEDPTRI< 28D THEN 170 









mo 
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$ if separator was not a carret then next column! 


















" DISPLAY EDITED ARRAY -———————- 
: RGW-O TO 10:FOR COLUMN-O TO Z:PRINT VS (ROW, COLUMN) 
MEXT:PRINT : NEXT 








INITIAL 
TD #FD:RESD 
area! 


MLP,.BYTE:NEXT 








from variable into editbuffer! 

LE PEEK (#284) #255+2 

art editbhbuftfer after BASIC: 

“TABS=VARPTR (POSTAR) 

5 in variable 6,77 always end with O! 

‘RA, ΨΡΤΑΒ TAND ΗΕΕ:ΞΕΟΕΕ #B5,VPTAB SHR 8 

begiñ tabtable! 
3 SFFIPOKE ΒΒΞ, ΕΡΕΒΗ SHR 8 















SHR 8 
itpointer editbufter to Stark ο. er! 

HAS, #40: PORE #A7, HRE 

end of editarea just below screen! g 
REM ee DATA FOR DEMO mmm 
FOR COLLUMN-O TO Ss FOR ROW=O TO 2 
READ VS (COLUMN, ROW) © PRINT Vs (COLUMN, ROW): NEXT: NEXT: RET 
URN 
DATA B,TC MATIC, OUE FASA 
DATA D, ALPHAVILLE, BIG IN JAPAN 
DATA GE, ΝΕΜ ORDER, THIEVES LIKE US 
DATS F, JULIEN CLERC. LILI VOLAIT AIMER DANSER 
PATA I,BL BANG & ROMINA POWER,CI SARA 
DATA NL, STAR SISTERS, HOORAY FOR HOLLYWOOD 
E international data! 





a mnt to wee a READ st 
ESTORE, The program can ea 
meric arrays and differen 


ement again you must 
y he modified for 
iimensicons. 





er m i 
- 
nca 





SOLUTION OF MATH'PUZZLE (newsletter 84-21 p. 135) 


(1 + 1 + 1)! (faculty) 
2132132 

(3x 5) - 3 

SOR(4) + SOR(4) + SAR(4) 

5 + (5/5) 

(6 x ὁ )/6 

4 qn ge: 
E + VE + Va 

{SOR (9) x SQR(9))-SER(9) 

(LOGT (10) +LOGT (16) *LOGT(19))! (faculty) 


8 ΒΒ 


how oi 


& 
8 
6 
6 = 
ὁ = 
& = 
6 
6 
D 
& 
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Software DAInamic 


pa. Luc Maes Mottaart ΖΒ 
Collegestraat ep E Herselt 
B 238g Turnhout 


Geachte heer 


naar aanleiding van het programma 
"de DAI ale intelligente terminal" en de mogelijkheden 
die ons werden geboden op het Limburgs Universitair 
Centrum, hebben we onze DAI kunnen aansluiten op het mair- 
frame van de universiteit. Deze computer is een Cyber 
178 series 825. 

Op de universiteit werd ons al snel 
een poort op 1286 baud toegewezen. Deze snelheid was 
ideaal voor het programma uit newsletter 19. 

Dit programma bleek overigens uitstekend te werken. 

De operator en de systeem-analist waren zeer verbaasd 
over de eenvoud van de hard- en software. Men was na- 
melijk al twee weken bezig om hetzelfde klaar te spelen 
voor een apple, maar men bleek steeds weer moeilijkheden 
te hebben met software die niet kon gebruikt worden op 
de gekochte interfacekaarten. 

Na wat uitzoeken en proberen hebben we het "terminal"-pro- 
gramma wat kunnen versnellen en uitbreiden, zodat het 

nu mogelijk is om op 9648 baud te werken en men kan nu 
ook files van het systeem in de edit-buffer opladen. 


Ook heb ik ervoor kunnen zorgen dat er geen terminaldefines 
meer nodig zijn om gewoon interactief te werken. 

Om een mooiere output te krijgen is het wel handig om de pa- 
ginabreedte Bos 68 te zetten, zodat men geen continuation 
lines krijgt. Op het CDC-NOS systeem kan dit met het commando 
TRMDEF , Ρος. (PW staat voor page width) 

Verder zijn er geen andere terminaldefines nodig. De DAI ver- 
liest geen karakters meer, zelfs niet bij 8688 baud. 

Dit is ens gelukt door interrupt 4 te activeren en een andere 
interrupt routine te schrijven, zodat nu telkens de rs-232 
poort een karakter heeft ontvangen, dit dadelijk in een cir- 
lar buffer wordt geschreven. ( De buffer loopt van 3360 tot 
*3FF.) Het hoofdprogramma heeft hierdoor meer tijd om de ka- 
rakters te verwerken. 

Het toetsenbord van de DAI is niet erg geschikt om op een 
mainframe te werken. Daarom hebben we enkele aanpassingen 
aangebracht. De DAI mist een ctrl-toets ( de toets staat er 
wel, maar is geen echte control-toets maar een shift-lock.). 
In ons programma hebben we de 4-toets als ctrl-toets gedefini- 
eerd. Om bv. ctrl-G te tikken moet men 4-G tikken zoals men 
shift-G zou gebruiken. Dus de -toets ingedrukt houden. 

De e-toets hebben we gedefinieerd als escape. 

Ook de +-toets heeft een speciale funktie : hiermee kunnen files 
in de edit-buffer opgeladen worden. 

Warneer men die toets indrukt, stuurt de DAI een 
cerriagereturn-linefeed door naar het mainframe en stopt 

van dan af alle ontvangen karakters in de editbuffer. 

De editbuffer start vlak na het programma en kan gaan tot 

de heap. Om deze mogelijkheid te gebruiken zet men dus 

de heap met behulp van de pointer op #29B en op *29C 

zover mogelijk naar achter in de RAM. 
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Dan maakt men alles klaar om de gewenste file op het scherm 
uit te listen, en in plaats van return drukt men cursor-+. 

De DAI laadt dan karakters in het geheugen tot hij een ctrli-G 
tegenkomt. Op de CDC duidt dit het einde van de file aan. 
Misschien moet men voor andere Systemen een ander controle 
karakter nemen, control-G laat de terminal even piepen. 

Het is wel best om voor dat men de file inlaadt, dat men de 
paginabreedte op oneindig zet, omdat anders om de 6 of 84 
karakters een CR mee opgeladen werdt. Dit geeft dat lijnen 

die langer als 68 of 88 letters zijn in stukken gekapt 

worden, wat bij BASIC-programma's voor de nodige errors zorgt. 
Op het CDC-NOS systeem kan dit gedaan worden met het commando 
TRMDEF ,PW=8. Wanreer men vrij veel files inleest en wegschrijft 
kan men de paginabreedte best op oneindig laten staan. 

Na het opladen kan men naar BASIC terugkeren (BREAK) en dan 
het ingeladen BASICprogramma in de textbuffer van de DAT 
plaatsen met POKE *135,2. 

Om een BASIC-programma van de DAI in een file op het main- 
frame te stoppen, gaat men in de editor van het mainframe, 

men keert terug naar BASIC (BREAK) en tikt dan: 

POKE ¥131,9:LIST1-:CALLM *4gg 

Na deze handelingen heeft de DAI het BASIC programma in de 

file "ingetikt". Men kan de editor dus terug verlaten en 

de file saven op hard-disk of 9track tape. 

Het is wel interessant te bedenken dat deze manier van saven 
van BASIC-programmas veel sneller is dan met een cassette- 
recorder. 

Zosls uit deze uitleg al gebleken is, is deze routine nogal 
specifiek voor de CDC. Toch denken we ze bruikbaar is op 
andere mainframes zonder grote veranderingen. 

Indien andere leden van de club problemen met dit programma 
hebben, kan men ons steeds proberen te contacteren. 

Hier volgt nog een listing van het programma met de nodige 
uitleg. Het programma is misschien niet helemaal 'elegant' 
geschreven, maar het werkt prima. 


veel success ermee 


LMPG-soft 





Luc Maes 
Collegestraat 68E 
B 2394 Turnhout 
BiA / 41 32 54 


Paul Gobert 
De Bergen 49 
B 2241 Zoersel 
83 ^ 383 29 72 
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POP Z7 Ces [m Ces 


SPL V1.1 PAGE 1 CDC-communicatie 

2000 TITL *CDC-communicatie’ 

90000  B-FFFO SERIN ERU ΘΕΕΕΘΗ sserial input buffer 

0069 6-9151 OUTPSW EBU 131H 

$000 @-FFF8 INTMSK EBRU ΘΕΕΕΘΗ sinterrupt mask 

9000 BDLBE GETC ERU ΘΡΕΟΒΕΗ 

6809 @=DD94 OUTPUT EQU @DDI4H serial output routine 
0096 850815 BASIC ERU 6C818H 

96906 G=00AG BDRATE EQU BAOH 5 4800baud 

90686 ΒΞΕΡΘ6 BANK EBU OFDOGH 

9000  8-0040 DUBANK ERU 40H 

9006 @-E4BC SOUND EBU GE4BCH ssound routine 

0890 ΒΞΘΙΒΕ WAIT EQU 1ΒΕΗ SWAIT TIME timer 

0000  &-DBS2 PRINT EGU @DB32H sprint string 

0000 &-DE14 COMPAR EQU @DE14H ivergelijk HL en DE 

9999 ORG 400H 

6400 5 

9499 TREIER EE JE DEEE DEEE DEEE DE DESSERTE 
6466 5 Start en initialisatie 

6499 H 

64006 3εοι START MVI A 1H 

0402 323161 STA DUTPSW soutput naar scherm alleen 
9405 ΑΕ XRA A 

6496  32B902 STA 2B9H jalle toetsen scannen 

9409 SEAG MVI A BDRATE 

@40B 32FSFF STA ΘΕΕΕΡΗ ;zet baudrate 

O4GE JEFO MVI A OF OH 

0410  3206FD STA BANK ;RüM-bank 4 

0413 324000 STA DUBANK 

6416 F3 DI 

9417 3A5F00 LDA ΞΕΗ sDuplicaat van interrupt mask 
@41A 327805 STA MSKSAV 

@41D SEDS MVI A ©D5H 

941F 325F00 STA SEH sinterrupt 4 toelaten 
6422 32F8FF STA INTMSK 5 (4=serial buffer loaded) 
@425 21C504 LXI H INTR4 

0428 226800 SHLD 60H snieuwe interrupt routine 
942B FB EI 

042C SECC MVI A @CH 

042E EF RST 5 sscherm leegmaken 

942 63 DB 3H 

9456 JEFF MVI A ΘΕΕΗ 

@432 320502 STA 2U3H szet SHIFT-LOCK 

9435 : 

θ4 55 H 
0435 3 Mainloop : ingedrukte toets verzenden 

6455 H 

0435  SABEO1 KEYS LDA WAIT sbeeptijd voorbij ? 

9438 A7 ANA A 

@439 C24204 JNZ KEYS2 

@43C CDSFD9 CALL 9D98FH ;Disable sound interrputs 
943F CDASDS CALL ΘΏΒΑΡΗ Stop oscillators 

$442 CDBED6 KEYS2 CALL GETC 

0445 DAA7O4 Jt BREAK sindien BREAK, naar BASIC 
6448 A7 ANA A 

0449 CA7504 dz PORT igeen toets, dan ontvangen bytes verwerken 
944€ FEIS CPI 13H 

Θ44Ε Caeees JZ LOAD cursor rechts, file laden 
8451 FELL CPI 11Η 
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SPL V1.1 PAGE 2 CDC-communicatie 

9453 CA7504 dz PDRT scursar down is nu ctrl 

6456 FE12 CPI 12H scursor links is nu escape 
0458 C25De04 JNZ NESC 

e455 SEIB MVI Α 18Η sescape 

@45D 47 NESC MOV Β.Α 

@45E F3 DI Check of control 

GA  3EO2 MVI Α 2H 32e rij 

6461  3207FF STA OFFO7H 

0464 5ΑΘΙΕΕ LDA ΘΕΕΘΙΗ 

0467 FB ΕΙ 

8468 A RAL skijk of cursor down ingedrukt is 
9469 1 RAL 3 be bit 

8468 SE7F MVI A 7ΕΗ istrip parity bit als geen ctrl 
@48C D27194 JNC NCTRL 

@46F 3EIF MVI A 1FH ;strip hoogste 3 bits als wel ctrl 
0471 AO NCTRL ANA B 

0472 CDI4DD CALL DUTPUT sserieel verzenden 

0475 : 

0475 ακομη OSEO 
0475 3. Mainloop : ontvangen bytes verwerken 

0475 5 

6475 3075605 PORT LDA WBUF slaatst ontvangen byte 

6478 47 MOV B,A 

0479 3077095 LDA RBUF 5laatst verwerkte byte 

e470 ΒΒ CMF B szelfde? 

047D CAI5O4 JZ KEYS sja, dan terug naar toetsen kijken 
6489 55 INR A 

6431 327705 STA RBUF spointer naar laatst verwerkte byte 1 verhogen 
0484 OF MOV L,A 

0485 2603 MVI Η 3H 

9487 7E MOV A,M shaal 3##H (#*=RBUF) 

6488 FEIF CPI 1FH 

648Α 397264 Jt CTRL $ctrl-chars niet op scherm zetten 
649D EF TEMP RST 5 

GADE oi DB 3H jandere wel op scherm zetten 
€948F C37504 JMP PORT volgende byte verwerken 

0492 FEOD CTRL CPI @DH scarriage return? 

9494 CABDE4 JZ TEMP iwel op scherm zetten 

0497 FEO7 CPI 7H scontrol-67 

0499  CAE204 JZ BEEP sdan piepen 

@49C εεος CPI EIS ΣΗΌΜΕΞ 

B49E ΞΑΒΡΘΦ 47 TEMP wel op scherm zetten 

94A1 ΕΕΘΘ CPI 8Η 3 CHAR-DEL? 

9485 CABDS4 JZ TEMP iwel op scherm zetten 

9486  C33504 JMP KEYS verder werken 

6449 3 

6449 E λα DE DE DEEE IHN REE EERE EE EEE 
84n9 5 Terug naar BASIC 

9409 H 

9449 F3 BREAK DI 

6498 207805 LDA MSKSAV 

GAAD J325F00 STA SFH restore interrupt mask 

94B6 ΞΖΕΒΕΕ STA INTMSK 

G4ES 21C0C& LXI H GC Con 

6486 226800 SHLD AAH restore interrupt vector 

@4B9 FB EI 

GABA  3ESO MVI A 36H 

94855 ZZOEFD STA BANK restore ROM-bank 
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SPL V1.1 PAGE 5 CDC-communicatie 

GABF 324000 STA DUBANK 

8452 C318C8 JMP BASIC snaar BASIC-monitor 

6455 H 

Θ455 σαν κκ κκ κακή 
84C5 5 Interrupt routine voor intr. 4 RECEIVE BUFFER LOADED 
94C5 : 

84C5 FS INTR4 PUSH PSW 

9456 CS PUSH B 

9457 ΞΒΕΘΕΕ LDA SERIN shaal ontvangen byte boven 
BACA A7 ANA A 

@4CB CADDO4 JZ . NONE 107 laat dan maar 

@4CE 47 MOV BLA 

e€93 4CF 347885 LDA WBUF sLaatste in buffer (1 byte) 
9402 SC INR o Volgende plaats 

6455 327605 STA WBUF 

94D6 6Ε μον LA 

9407 2603 MVI H 5Η sBuffer (h byte) S&H  #4#=WBUF 
9409 78 μον A,B 

Θ4ΡΑ E67F ΑΝΙ 7FH sstrip parity bit 

9455 77 MOY M,A szet byte in buffer 

@4DD Cl NONE POP B 

GADE ΕΙ POP PSW 

@4DF ΕΙ POP H 

@4EQ FB ΕΙ 

@4E1 C9 RET 

Θ4Ε2 5 

O4E2 S FEIER E HEEE FEAE FE AE AE HEHE AEA AE EAE AE HE REE AE AE EAE AE EAEE AE EAE EHE AE IERE E RE AE IE AE IE HEE EEE EEA EEE ARE 
BAER 5 Verwerking van control-6 : BEEP 

94E2 H 

@4E2 15005 BEEP LXI B BBEEP spointer naar beep commando 
94ES JEZA MVI Α 30H 

Θ4Ε7 324006 STA DUBANK 3BASIC ROM-bank 

O4EA  3266FD STA BANK 

G4ED CDBCE4 CALL SOUND svoer SOUND commando uit 
earo SEFO MVI A ΘΕΘΗ 

GAF2 324006 STA DUBANK sterug naar ROM-bank 4 
G4F5 3206FD STA BANK 

@4F8 3E14 MVI A 14H stijdsduur van beep 

94FA 328ΕΦΙ ΞΤΑ WAIT sin de timer stoppen 

@4FD C37504 JMP PORT verder werken 

2500 H 

6586 5 RER RASE MD DEEE HIER EEE DEEE JE DE HEHEHE EH EEE EAR EEE 
2500 3 Laad een file in de EDIT-buffer 

8590 H 

95600 3ΕΘΡ LOAD MYI A ΘΡΗ scarriage return 

8592 CD?4DD CALL OUTPUT 5serieel doorsturen 

@505 ΕΕ RST 5 

9526 05 DB 3H sen op scherm zetten 

2597 117805 LXI D EBUF sstart van de EDIT-buffer 
@50A 307505 LOAD2 LDA WBUF 

e5eD 47 MOV Β,8 

9596Ε 3077093 LDA RBUF 

2511 ΒΒ CMP 8 schar ontvangen? 

4512 CASASS JZ LOAD2 snee, wachten 

9515 3C INR A 518 

9515 327795 STA RBUF jleespointer 1 verder 

9519 GE MOV L,A 

9518 2503 MVI H 3H 
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SPL V1.1 PAGE 4 

6515 7E MOV A,M 
951D ΕΕΘ7 CPI 
@5iF ΟΑΞΕΟΣ 32 
@522 FEA CPI 
9524 cAeAeS 32 
0527 12 STAX D 
e528 13 INX D 
9529  209B02 LHLD 
65205 2B DCX H 
6520 CDLADE CALL 
0530 CA3605 az 
0535 C30A05 JMP 
0536 215905 FULL LXI H 
9539 CD32DB CALL 
est (57564 JMP 
@53F AF LODEND XRA A 
9549 12 STAX D 
0541 13 INX D 
0542 217005 LXI H 
9545 25 INX H 
0546 22A200 SHLD 
0549 EB XCHG 
6544 220400 SHLD 
654D C37504 JMP 
esse : 

6559 : 

9550 3 DATA 

6559 E 

0550 140000 BBEEP DB 
@55D 000F14 DB 
0569 op FULMES DB 
656A C2FSEG DB 
0575 90 DB 
6575 oe WBUF — DB 
0577 90 RBUF ` DB 
6578 0000 MSKSAV DW 
9574 90 EBUF — DB 
0578 END 
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CDC-communicatie 


shaal SHH (##=RBUF) 
7Η sctr1-6? 
LODEND sja, gedaan 
BAH 3linefeed? 
LOAD2 sja, overbodig karakter 


sstop char in de EDIT-buffer 
pointer in EDIT-buffer 1 verder 


29BH 
COMPAR svergelijk met start van de HEAP 
FULL szelfde? dan vol 
LOAD2 sanders verder laden 
FULMES 
PRINT sprint "Buffer full" 
PORT 

59 als laatste byte 
EBUF 
@A2H iStart v.d. EDIT-buffer 
ORAH Einde v.d. EDIT-buffer 
PORT sterug interactief werken 


RENE MEIE HE HEHEHE EE HE FE HE AEAEE HEHE AEE DEEE DE DD ESA 


14H, ΘΗ, OH, ΘΗ, ΘΗ, 14H, OH, OH, OH, OH, 14H, OH, ΘΗ 
OH, OFH, 14H, ΘΗ, OH, ΘΗ, ΘΗ, 14H, ΘΗ, OH, 7H, ODOH 
@DH 

“Buffer full" 


ΦΡΗ 

ΘΗ spointer naar laatst ontvangen byte 
eH spointer naar laatst verwerkte byte 
ΘΗ 

OH begin van de EDIT-buffer 
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Start ?8500-99090000 


9000 
0000 
8060 
2800 
2680 
9996 
8909 
6086 
98999 
8200 
$000 
6060 
goe 
6490 
8400 
8499 
6499 
6400 
9402 
3405 
9406 
0489 
G40E 
O40E 
6419 
9413 
9416 
9417 
9418 
041D 
ΘΔ1Ε 
0422 
0425 
$428 
942B 
$42U 
942E 
642F 
94360 
e430 
0450 
9435 

9456 
6455 
6434 
9437 
@43A 
943D 
$440 
94453 
9444 
9447 
9449 
944C 
044E 
9451 
6453 


ΕΞΕΕΕΘ 
58-6131 
S=FFFE 
@=D4BE 
@=C918 
ΕΞΘΘΑΘ 
B=FDO6 
E=0046 
B=E4BC 
ΕΒΞΘΙΒΕ 
B-DH32 

-DE14 


SEO1 
323101 
ΑΕ 
32B902 
3EAG 
S32FSFF 
SEFO 
3296FD 
324900 
F3 
SASFO0 
329205 
SEDS 
S25F 08 
32F EFF 
21DFO4 
226800 
ΕΒ 
SEOC 
EF 

93 


3ΑΒΕΘΙ 
a7 
C23D04 
CD8FD? 
CDASDS 
CDBEDG 
DACSe4 
A7 
CA7704 
FELZ 
DN 
FEI) 
CA7794 
FE12 
C25864 


SERIN EQU 
QUTPSW EQU 
INTMSK  EQU 
GETC EQU 
BASIC EQU 
BDRATE EBU 
BANK Egu 
DUBAMK EQU 
SOUND EQU 
WAIT ERU 
PRINT EQU 
COMPAR EBU 

ORG 


TART MIA 


XRA A 


DB 


Mainloop : 





TITL 

ΘΕΕΕΘΗ 
131H 
ΘΕΕΕΒΗ 
SD&BEH 
9CB18H 
ΘΑΘΗ 
@FDOGH 
40H 
SE4BCH 
1BEH 
ΘΡΗΞΡΗ 
@DE14H 
4Θ6Η 


1Η 
OUTPSW 


2B9H 


DUBANK 


SFH 
MSKSAV 
@DSH 
SFH 
INTHSK 
INTR4 
SAH 


OCH 


3H 








'"PDPii-communicatise" 
serial input buffer 


sinterrupt mask 


;48060haud 


5sound routine 
WAIT TIME timer 
sprint string 
svergelijk HL en DE 


E EE 
Start en initialisatie 


soutput naar scherm alleen 
salle toetsen scannen 
izet baudrate 


3ROM-bank 4 

3Duplicaat van interrupt mask 
sinterrupt 4 toelaten 

5 G-serial buffer loaded) 


snieuse interrupt routine 


sscherm leegmaken 


ingedrukte toets verzenden 


5 
53 SEXKHLKEREKER EER EK EERE SES SES STE EEE κκ ER TS ETS EE EEN EEE 
5 
i 


KEYS LDA 
ANA A 
JNZ 
CALL 
CALL 


KEYS2 CALL 


*PDP/CDC communicatie 


WAIT 


KEYS2 
@D9SFH 
@DBAGH 
GETC 
BREAK 


PORT 
13H 
LOAD 
11H 
PORT 
12H 
NESC 


sbeeptijd voorbij 7 

Disable sound interrputs 

Stop oscillators 

sindien BREAK, naar BASIC 

sgeen toets, dan ontvangen bytes verwerken 
scursor rechts, file laden 


cursor down is nu ctrl 
cursor links is nu escape 
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6458 
9458 
@45A 
θ4 50 
045F 
6488 
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PAGE 2 PDP11-communicatie 
5Ε1Β MVI A 1BH escape 
ΕΕΘΒ NESC CPI BH sbackspace? 
C25F04 JZ NODEL snee, ga verder 
SE7F MVI Α 7FH ivervang door DEL 
47 NODEL MOV Β.Α 
F3 DI sCheck of control 
3Ee2 MVI A 2H 32e rij 
3207FF STA ΘΕΕΘΤΗ 
SAQLFF LDA ΘΕΕΘΙΗ 
ΕΒ ΕΙ 
17 RAL ikijk of cursor down ingedrukt 15 
17 RAL 5 ée bit 
ΕΤΕ MVI A 7FH sstrip parity bit als geen ctrl 
D27304 JNC NCTRL 
SELF MVI A 1FH sstrip hoogste 3 bits als wel ctrl 
ae NCTRL ANA B 
CDADO4 CALL OUTPUT sserieel verzenden 
3 
SHH HHUA HTH NIN HMI NIM DE DE DE DE EE DEEE IMI MIR IIIA 
5 Mainloop : ontvangen bytes verwerken 
5 
349005 PORT LDA WBUF jlaatst ontvangen byte | 
47 MOV BLA | 
3A7105 LDA RBUF jlaatst verwerkte byte | 
ΒΒ CMP Β tzelfde? 
CAS004 JZ KEYS 118. dan terug naar toetsen kijken 
3C INR A 
329105 STA RBUF spointer naar laatst verwerkte byte 1 verhogen, 
5F MOV L,A | 
2603 MVI H 3H | 
7E MOV A,M ἆπαα] S&H (##=RBUF) 
FEIF CPI 1FH 
DA9464 Jc CTRL sctri-chars niet op scherm zetten 
EF TEMP RST 5 
ez DB 3H sandere wel op scherm zetten 
£37704 JMP PORT volgende byte verwerken 
FE@D CTRL CPI @DH scarriage return? 
CagFe4 Ζ ΤΕΜΡ iwel op scherm zetten 
FEO7 CPI 7H scontrol-G? | 
CAFCO4 Jz BEEP jdan piepen | 
FE@C CPI OCH 3 HOME? i 
CASFO4 d TEMP wel op scherm zetten 
FE7F CPI 7ΕΗ 3 DEL? 
C23004 JNZ KEYS snee, terug naar toesen kijken 
3E08 MVI Α 8Η maak er BACKSPACE van i 
C38F 04 JMP TEMP sop scherm zetten | 
3 
Ιλ λα μα. 
3 Seriele output routine 
3 
F5 DUTPUT PUSH PSW sonthoud char 
SA@@FD WAITI LDA ΘΕΌΘΘΗ 
E898 ANI 8H serial output ready? 
CAREG4 JZ WAITI ;nge, wacht 
SAF3FF WAIT2 LDA ΘΕΕΕΞΗ 
E5109 ANI 10H 3TICC-buffer leeg? 
CABGO4 JZ HAITZ snee, wacht 
Fi POP PSW jhaal char terug 
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94BF 32F4FF STA ΘΕΕΕΘΗ slaad seriele output buffer 
8452 C9 RET 

@4C3 3 

Θ455 Ἐλκκκλκκχχκκκακκκκκεκκκκκκκακκκκκκκκκκκκκκκκκκκκκαχκκκκχκρκεχκ 
9465 5 Terug naar BASIC 

DAC ; 

9405 F3 BREAK DI 

6454 309205 LDA MSKSAV 

94C7 325Fee STA SFH srestore interrupt mask 

GACA ΞΖΕΘΕΕ STA INTMSK 

€4CD 21C8C6 LXI H OC 6CeH 

8436 225500 SHLD &AH srestore interrupt vector 

6405 FB :, ΕΙ 

6454 5Ε56 MVI Α 30H 

Θ64Ρ6 3206FD STA BANK srestore ROM-bank 

94D9 324990 STA DUBANK 

DAD C318C8 JMP BASIC snaar BASIC-monitor 

@4DF 3 

GADF J EIEEE E EIE IEE HE JE KIRIK IKMN INI HMI IE AE MEAE HE HE E AE E E HEBE E AE PE MINI HI KH 
@4DF 5 Interrupt routine voor intr. 4 RECEIVE BUFFER LOADED 

64DF H 

@4DF ΕΒ INTR4 PUSH PSW 

9466 C5 PUSH B 

@4E1 SAFOFF LDA SERIN $haal ontvangen byte boven 
94E4 A7 ANA A 

O4ES CAF704 JZ NONE 30? laat dan maar 

AER 47 MOV Β.Α 

64Ε5 3A970053 LDA WBUF sLaatste in buffer (1 byte) 
@4EC 3C INR A Volgende plaats 

@4ED 329005 STA WBUF 

O4FO GE MOV L,A 

@4F1 2603 MVI H 3H iBuffer (h byte) 3##H ##=WBUF 
G4FS 78 MOV A,B 

O4F4 E57F ANI 7FH strip parity bit 

OFA 77 MOV M,A izet byte in buffer 

@4F7 Ci NONE POP B 

9468 ΕΙ POP PSW 

O4F9 ΕΙ ΡΟΡ Η 

@4FA FB EI 

Θ4ΕΒ C9 RET 

94FC : 

94FC DER MIE HEHE REESE KEE KALE REEL RELEASE EEE EEE MHI HHN EE DA SEE 
@4FC 3 Verwerking van control-G : BEEP 

e4rc H 

94FU 9156505 BEEP LXI B BBEEP spointer naar beep commando 
94FF 3E39 MUI A 30H 

9501 324000 STA DUBANK 3BASIC ROM-bank 

9504  3205FD STA BANK 

4507 CDBCE4 CALL SDUND ἄνοετ SOUND commando uit 

@50A JEFO MVI A OF GH | 

6595 324090 STA DUBANK sterug naar RüM-bank 4 

@50F  3206FD STA BANK 

9512 SELA MVI A 14H stijdsduur van beep 

9514  32BEO1 STA WAIT sin de timer stoppen 

9317  C37704 JMP PORT sverder werken 

931A 5 

6518 5 EIERE IE ΥΜΕ Χ EEE EEE EEE ΛΗΜΜΑ. | 
ΘΞΙΑ 5 Laad een file in de EDIT-buffer | 
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951a 
esia 
8515 
OS1F 
9520 
@521 
6524 
9527 
0528 
9528 
9520 
G52F 
0550 
0555 
6534 
8536 
0537 
9539 
θσσο 


PDPli-communicatie 


PAGE 4 

3 
3E@D LOAD MVI A 
CDADO4 CALL 
EF RST 5 
es DB 
119405 LXI D 
569965 LOAD2 LDA 
47 MOV Β.Α 
349195 LDA 
B8 CMP B 
CA2405 JZ 
3c INR A 
329105 STA 
SE μον L,A 
2603 MUI H 
7E MOV A,M 
FE7E CPI 
CAS9O5 Jz 
ΕΕΘΑ CPI 
CA2405 JZ 
12 STAX D 
13 INX D 
249B92 LHLD 
2B DCH H 
CD14DE CALL 
ΓΑ5ΘΘ5 JZ 
C32405 JMP 
218305 FULL LXI H 
CD32DB CALL 
6027794 JMP 
ΒΕ LODEND XRA A 
12 STAX D 
13 INX D 
219405 LXI H 
23 INX H 
228200 SHLD 
EB XCHG 
220400 SHLD 
57794 JMP 

; 

3 

; DATA 

H 
140060 BBEEP ΠΒ 
GOOF 14 DB 
en FULMES DB 
C2F5E6 DB 
9D DE 
Ge WBUF DB 
90 RBUF DB 
6009 MEKSAV DW 
ee EBUF DB 

END 
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@DH 
OUTPUT 


3H 
EBUF 
WBUF 
RBUF 
LOAD2 
RBUF 


3H 


P" 


LODEND 
@AH 
LOAD2 
29BH 


COMPAR 


EBUF 
@A2H 


@A4H 
PORT 





scarriage return 
3serieel doorsturen 


sen op scherm zetten 
istart van de EDIT-buffer 


char ontvangen? 
snee, wachten 

318 

sleespointer 1 verder 


shaal 3##H 
5%? 

418, gedaan 
slinefeed? 
sja, overbodig karakter 

sstop char in de EDIT-buffer 
spointer in EDIT-buffer 1 verder 


GHEZRBUF ) 


ivergelijk met start van de HEAP 
szelfde? dan vol 
sanders verder laden 


sprint "Buffer full" 


56 als laatste byte 


Start v.d. EDIT-buffer 


sEinde v.d. EDIT-buffer 
sterug interactief werken 


14H, OH, ΘΗ, OH, OH, 14H, ΘΗ, ΘΗ, OH, OH, 14H, OH, OH 
9H, @FH, 14H, OH, OH, OH, ΘΗ, 14H, 6H, ΘΗ, 7H, ODOH 


GD 
“Buffer full" 
ΘΡΗ 
ΘΗ 
ΘΗ 
ΘΗ 
ΘΗ 


spointer naar laatst ontvangen byte 
spointer naar laatst verwerkte byte 


ibegin van de EDIT-buffer 
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HOOFDSTUK IV : PROGRAMMERING VAN MICROPROCESSOREN 





Een programma is een geheel van instructies die door de microprocessor 
stuk voor stuk dienen uitgevoerd te worden om tot een bepaalde toepassing 
te komen. 

Vermits elk van de microprocessortypes een eigen instructieset heeft, 
zou een uitgebreide behandeling van de verschillende insstructiesets ons 
veel te ver leiden. Wij beperken ons derhalve tot een gedetailleerde 
studie van de instructieset van de microprocessor 8080/8085 van INTEL. 
In annex 10 is een resumé gegeven van de 8080/8085 evenals een alfabe- 
tische lijst en een lijst in hexadecimale volgorde, en in rubrieken. 


4.1. Samenstelling van een instructie 


Een volledige instructie bestaat uit 1, 2 of 3 bytes (4 bytes bij 280) 
afhankelijk van het type van instructie en van het gebruikte adresserings- 
type. Een programma wordt slechts door de microprocessor aanvaard onder 
de vorm van machinetaal, d.w.z. een opeenvolging van 2 digits lange hexa- 
decimale codes. Vermits zulk een programma voor de gebruiker haast on- 
leesbaar is, worden de instructies voorgesteld in afkortingen die men 
mnemonics noemt. Een instructie bestaat uit twee gedeelten of velden. 
Een eerste veld geeft de operatiecode OPCODE van de instructie aan. 

Het tweede veld geeft de operand(en) aan waarmee deze opcode moet werken. 
Als operand kunnen worden aangegeven : 

- 8 bits data 

- B bits adres van in- of uitgangskanaal 

- 18 bits data 

- 18 bits geheugenadres 

- een register 

- gen registerpaar 

Het is mogelijk een volledige instructie te schrijven die slechts één 
byte lang is, wanneer de OPCODE maar enkele bits beslaat. Dienen data 
of adressen aangegeven te worden in de instructie, dan wordt deze 2, res- 
pectievelijk 3 bytes lang. 

Bij de bespreking van de verschillende instructies zullen we telkens, 
naast de mnemonics, de hexadecimale code aangeven, vermits we deze nodig 
hebben om een programma te schrijven in de vorm die door een microproces- 
Sor kan aanvaard en verwerkt worden. 


4.2. Instructieset van de microprocessor 8080/8085 van INTEL 





De instructies voor de 8080/8085 kunnen worden onderverdeeld in verschil- 
lende groepen. Voor we de instructies van elke groep in detail behande- 
len, geven we een algemeen overzicht. 7 
We onderscheiden : 


- Transfertinstructies : zij maken het mogelijk : 
8) gegevens, adressen of constanten te verplaatsen, hetzij 
- tussen registers 
- van geheugen of ingangspoort naar een register 
e van register naar een geheugenplaats of naar een uitgangspoort 
b) een constante te plaatsen in een register of een geheugenplaats 
- Rekenkundige instructies 
- Logische instructies 
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- Instructies betreffende de behandeling van onderprogramma’s (subroutines 

- Instructies betreffende programma onderbreking 

- Besturingsopdrachten voor het assembler vertaalprogramma (pseudo-in- 
structies). 


Bij de definitie van de instructies gaan we gebruik maken van bepaalde 
afkortingen en symbolische voorstellingen die we eerst even toelichten. 


Verwijzing naar : gebeurt met : 
register r 
registerpaar rp 

adres adr 

8 bits data of constante data 8 (dg) 
16 bits data data 18 (dje) 
geheugencel M 

het nummer van een ín- of 

uitgangspoort nr ín?) 


Indien we niet verwijzen naar een register, registerplaats of geheugencel 
maar wel naar de respectievelijke inhouden, dan wordt dit aangegeven 
door het tussen haakjes plaatsen van het betreffend element. 


(r) geeft de inhoud van een register 
(rp) geeft de inhoud van een registerpaar 
(adr) geeft de inhoud aan, van wat zich op een adres bevindt 


Onderstaande tabel geeft de namen van de verschillende registers of re- 
gisterparen die voor programmatie toegankelijk zijn. Teneinde een zo 
volledig mogelijke informatie te kunnen geven hebben we de binaire naam 
(in machinetaal) van de verschillende registers of registerparen toege- 
voegd in een derde kolom van deze tabel. 









Symbool Binair equivalent 








accumulator 
register 
register 
register 
register 
register 
register 
geheugencel M 

registerpaar B,C 
registerpear D,E 
registerpaar H,L 
stack pointer (stapelwijzer) SP 
program status word PSW 
programmateller PC 

stack (stapelgeheugen) STCK 


ATMO- w 
romz (C rmon» 











Om de verklaring van de instructies zeer bondig te kunnen beschrijven, 
maken we gebruik van de symbolen: 

+ betekent : gaat naar 

Voorbeeld 

(B) + C betekent : de inhoud van register B gaat naar register C 

++ betekent : wordt omgewisseld 

Voorbeeld 
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(HL)4+(SP) betekent : de inhoud van het registerpaar wordt omgewisselc 
met de inhoud van de stack pointer. 


De opcode van de instructies wordt zowel in mnemonic als in machinetaal 
(binair) gegeven. In machinetaal worden de volgende symbolen gebruikt 


ddd staat voor het register van bestemming (destination) zoals bij 

een transfert opdracht bijvoorbeeld. 
sss staat voor het bronregister (source) vanwaar de informatie vertrekt 
rp staat voor een registerpaar waarmee de instructie werkt 


Het binair equivalent van de respectievelijke registers wordt in boven- 


staande tabel teruggevonden. 
De door de instructie beinvloece toestandenbits worden afgekort door : 


C carry overdrachtbit 
H zero nulbit 

5 sign tekenbit 

Ρ parity pariteitsbit 
AC auxiliary carry hulpoverdracht 


In de instructieset worden vaste symbolen gebruikt : 


I voor het onmiddellijk (immediate) manipuleren van constanten 

X voor het aanduiden van instructies met betrekking tot register- 
paren. Deze vaste symbolen zijn slechts geldig als I of X niet 
de eerste plaats van de mnemonic innemen. ` 


Rekening houdend met al deze gemaakte afspraken zullen we alle instruc- 


ties bespreken onder dezelfde vorm. 
De eerste lijn van de bespreking geeft in volgorde : de mnemonic, de machi- 
necode, de toestandenbits die door de instructie beïnvloed worden, het 


eantal bytes en tenslotte de instructieduur gegeven door het eantal pe- 


riodes van de besturingsklok. 
Deraanduiding tussen haakjes duidt op een aantal periodes bij de 8085 


indien deze niet dezelfde is dan bij de 8080. 
Een tweede lijn geeft de betekenis van de instructie in de engelse taal. 


Een verklaring van wat de instructie doet en een grafische voorstelling 
ronden het geheel af. 


a) Transfert tussen registers 





MOV r4,rz Oidddsss | ----- 4 5(4) 


Move register to register 
De registerinhoud van r2 wordt naar register r4 gebracht 


(ro) + r4 
Overeenkomstig de afspraken is dit een 4 byte instructie 
die 5 klokperiodes duurt en de toestandenbits niet bein- 


vicedt. 
Let wel, r4 en rg kunnen cok hetzelfde register zijn 


XCHG 11101011 Tc 1 4 


Exchange DE with HL 
De inhoud van de registerparen DE en HL wordt omg 


(HL) ++ (DE) 


ewisseld 
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XTHL 


SPHL 


11100011  ----- 1 18(18) 


Exchange HL to top of stack 

De inhoud van het registerpaar HL wordt omgewisseld met de 
inhoud van het stapelregister geadresseerd door SP en SP+1 
De inhoud aangeduid door SP wordt omgewisseld met deze van 
L en de inhoud aangeduid door SP+1 wordt omgewisseld met 
deze van H. 

(HL) ++(TOP OF STACK) 


11114004. eas 1 5(6) 


HL to stack pointer 

Het stapelregister wordt geladen met de inhoud van het 
HL register 

(HL) + SP 


b) Transfert van een geheugencel of een ingangspoort naar een register 





MOV r,M 


LDA adr 


LOAX rp 


LHLD adr 


POP rp 
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Oiddd110 |^ ----- 4 102 


Move memory to register 

De inhoud ven de geheugencel geadresseerd door HL wordt 
overgebracht naar een register 

(M) + r met M = (HL) 

mov M,M is niet toegelaten 


00144040 | ----- 3 15 


Load accumulator direct 

De accumulator wordt geladen met de inhoud van het adres adr 
(adr) + A 

Let wel dat in binaire en ook in hexadecimale notatie byte 

2 de laagste adresbits en byte 3 de hoogste adresbits aan- 
duiden, dit in tegenstelling tot de assemblertaal. 


OOrp1010 | ----- 4 T 


Load accumulator indirect 

De accumulator wordt geladen met de inhoud van de geheugen- 
cel waarvan het adres in het registerpaar rp staat. 

(adr) +A 


00101010 | ----- 3 16 


Load HL direct 

Het HL registerpaar wordt direct geladen met de inhouden 
van adr en adr+1 

(adr) + (adr + 1) +H 


11rr0001 ------ 1 10 


Pop register pair off stack | 

Een registerpaar of het paar accumulator * toestandenbits 
wordt geladen met de inhouden van de cellen aangegeven 
door SP en SP + 1. 

Als het PSW als registerpaar gebruikt wordt, wcrden alle 
toestandenbits gewijzigd. 

De inhoud aangeduid door SP gaat naar Low of naar de Flags 
deze aangeduid door SP + 1 naar High of de Accumulator. 
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IN n° 11011011 M Ἄδερ πὲ cel 2 18 
Input 
De accumulator wordt geladen met het woord aangeboden op 
de poort met het nummer n°. 
Het nummer bestaat uit 8 bits zodat 256 combinaties mogelijr 
zijn. 
(Kanaal) + A 





c) Transfert van een register naar een geheugenplaats of naar een 
uitgangspoort 


MOV M,r 01110sss . xm Jee ve 1 7 


Move register to memory 

De inhoud van een register wordt overgebracht near een 
geheugenplaats M geadresseerd door het HL registerpaar. 
(r) + M met M = (HL) 


STA adr 00110000 | ----- 3 13 


Store accumulator direct 

De inhoud van de accumulator wordt overgebracht naar het 
adres adr. 

(A) + adr 


STAX rp O0rp0040 ----- 1 7 


Store accumulator indirect 

De inhoud van de accumulator wordt overgebracht naar de 
geheugenplaats waarvan het adres staat in rp. 

(A) + adr met adr = (rp) 


SHLD adr 00100010. ` es 3 16 


Store HL direct 
De inhoud van het registerpaar HL wordt overgebracht naar 
de adressen adr en adr + 1 
(HL) + adr {1} + adr 
(H) + adr + 1 


PUSH rp 11rp0101 ------ 1 11 


Push regtsterpair into stack 

De inhoud van het registerpaar rp of PSW wordt overgebracht 
in het stapelgeheugen op de adressen aangewezen door SP - 1 
en SP - 2. 

(rp) + STCK 

(PSW) + STCK 

HIGH of Accumulator + SP - 1 

LOW of Flags + SP - 2 


OUT nr 11910011 ----- 2 10 


De inhoud van de accumulator wordt naar de uitgangspoort 
met nummer nr gebracht 
(A) + Kanaal nr 


d) Een constante naar een register of een geheugenplaats brengen 
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MVI r,const 


MVIM M,const 


LXI rp,adr 


INR τ 


INRM 


DER ry 


DCR M 


INX rp 


DCX rp 
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00ddd110 


Move immediate to register 


Een constante (dg) wordt in een register geschreven 
const > r 


00140440 | ----- 2 10 


Move immediate to memory 

Een constante wordt in een geheugenplaats geschreven die 
door het HL registerpaar wordt geadresseerd. 

const + M met M = (HL) 


00rpü0041 ----- 3 ge 


Load registerpair immediate 


Een registerpaar rp wordt geladen met een 18 bits constante 
die meestal een adres zal zijn. 
constante (416) + rp 


O0ddd100 Z,S,P,-,AC 1 


Increment register 


De inhoud van een register wordt met 1 verhoogd 
(r)*1-r 


5(4) 


00110100 Z,S,P,-,AC 1 10 


Increment memory 

De inhoud van een geheugencel, door het HL register gead- 
resseerd, wordt met 1 verhoogd. 

(M) + 1 + M met M = (HL) 


00ddd101 Z,S,P,-,AC 1 5 


Decrement register 
De inhoud van een register wordt met 1 verlaagd. 
(r) = 4 or 


00110101 Z,S,P,-,AC 1 10 


Decrement memory 

De inhoud van een geheugencel geadresseerd door het HL 
registerpaar wordt met één verminderd. 

(M) - 1 + M met M = (HL) 


COrp0011 


Inerement register pair 

De inhoud van een registerpaar (8, D, H of SP) wordt met 
1 verhoogd. 

(rp) + 1 + rp 


OOrp1011 |. ----- 4 5 


Decrement register pair 


De inhoud van een registerpaar rp wordt met 1 verminderd 
(rp) - 1 + rp 
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présence du DAInamic 
précédentes. 
DAInamic 


DAlnamic INFO 


Chers membres, 


Vous qui @tes Francophone, vous avez pu remarquer la 
INFD dans quelques unes des revues 
Le DAInamic INFO est une création du club 


France, qui contient des taductions d'articles 


publiés précédemment en langue Anglaise ou Flammande, mais 
aussi des articles originaux de nos membres en France. 


utilisateurs du DAI 


Tout d'abord il a pour but d'élargir le cercle des 
afin d'avoir encore plus de nouveautés 


et de logiciels à vous présenter. AInsi dans ce numéro vous 


est présenté un 


premier programme (La forteresse de ZLARG) 


qui ne contient que des textes en Frangais. 


Ensuite les programmes courants du club, επ accord 
la Belgique, seront désormais disponibles en France à 


avec 
un prix sensiblement identique. Ces programmes seront 
accompagnés (Quand nécéssaire) d'une notice en français. 


Par exemple : 


la notice de FWP sera disponible à partir du 


ier Juillet. 


assez important, 
effet vous avez pu 


Enfin, nous pensons, et si le nombre de demande est 
regrouper les achats de cassettes DCR. En 
noter qu'il est trés difficile de se 


procurer ces cassettes, et que quand on y arrive elles sont 
vendus à des prix hautement prohibitifs. 


des articles divers 
logicels 
nous à : 


et si vous avez des questions à nous poser, 
concernant le DAI ou des échanges de 
plus ! 


Alors, 


qui vous interessent, n'hesitez Ecrivez 


DAInamic 
9 Rue Lavoisier 
59140 Dunkerque 


Au plaisir de vous lire, 





2 TRADUCTION DE L'ARTICLE : PROGRAMMEERTECHNIEKEN 
DE F.H.DRUIJFF (ΝΘ 16 P154) 


Examinons  aujourd'hui,le probléme de la rapidité d’un 
programme Le premier probléme est bien sur:comment tester la 
rapidité d’une instruction ou d’une partie de programme 
donnée. Le DAI peut nous être d'un grand secours.Le mieux 
est de faire un programme-timer séparé qui,si souhaité,peut 
étre une subdivision du programme principal aussi longtemps 
que celui-ci est encore au stade de projet.Les lignes 5 et 
95 présentent l'ossature de ce programme : 
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5 WAIT TIME 2:POKE #1BF,#FF:POKE #iBE, 4FF 
95 TIBE=PEEK GH BE) : T1BF-PEEK (BF) : 
PRINT GIFFFF-T1BE-TIBE4256)/50.0 


Les variables TIBE et ΤΙΒΕ sont des entiers naturels.Nous 
utilisons l'horloge de 20 msec. pour diminuer la valeur de 
IHE et iBFjusqu'à ce qu'elle soit nul.Les pokes et le WAIT- 
TIME de la ligne 5 servent à avoir un depart correct . Puis- 
que l'istruction WAITTIME utilise ces adresses, elle ne peut 
figurer dans le programme à tester. L'odre de lecture dans 
la ligne 95 a son importance:tel quel, 11 se pourrait qu'une 
erreur de 256420 msec.=5 sec. se produise,mais cela se 
verrait immediatement, alors que si les deux PEEK’S avaient 
été lu en sens inverse,une erreur de 20 msec. aurait pu 
venir fausser le resultat .Les deux exemples de la page 154 
vous donnerons une idée de la variation de vitesse de 
programmes semblant pourtant étre identiques Si nous 
ajoutons A=3 ou A=B dans la boucle,il faut limiter la boucle 
a 1008 iterations car le temps augmente trop fort. Si nous 
ajoutons des fonctions,ce temps va encore augmenter plus 
fortement.La periode chronométrée peut donc étre de #FFFF*20 
meer, = plus de 20 min. Attention les calculs avec les 
entiers ne sont pas toujours les plus rapides:voir ainsi 
AZ=SOR(PZ) et Al=SQR(P!) | Az2xB44 et les lignes suivantes 
sont assez édifiantes. Que la boucle se trouve sur une seule 
ligne ou sur deux lignes peut avoir aussi sont influence.En 
principe essayez toujours d'avoir tout sur une seule ligne. 
Examinons maintenant les sauts conditionnels: -tes 
instructions si importantes doivent se voir clairement 
dans un programme, par  exemple:le IF κκ: GOTO *** semble 
plus clair que le IF ses THEN ##*.Ci-apres un exemple de 
programme déjà regu: 

129 IF A-3 GOTO 146 

130  GOTO 160 

140  P-2 

150 GOTO 169 

169 END: REN Un programme desolant ! 


Naturellement cela fonctionne,mais il peut éTre nettement 
simplifié 

120 IF A<53 GOTO 169 

146 =2 


160  END:REM Un pogramme meilleur ! 
Une plus courte version donnerait : 
120 IF AS?3 GOTO 160:P=2 
169 END 
Une version sans l'instruction GOTO 
128 IF A=3 THEN P=2 
Enfin sans utiliser le IF : 
128 P=P+P# (SEN (ABS (A-3) ) -1) -2% (SGN LABS (48-32) 1) 


Savez-vous que le ON W GOTO ** travaille plus rapidement que 
le IF κκ GOTO ss. Hais attention car un calcul supplementaire 
pourrait annuler ce gain de temps.Faites aussi attention aux 
programmes ou l'on retrouve en 59 :80T0 170 en 179 GOTO 226 
et en 220 GOTO 36 !.Bien souvent ces erreurs proviennent de 
programmes qui ont été corrigés durant leur élaboration 


Les GOSUB et RETURN sont en général trés clairs dans un 
programme,dans la mesure du possible n'utilisez qu'une seule 
entrée et une seule sortie,a moins que vous ne soyez tres 
sur de vous et que la clarté n'y perde pas de trop Essayez 


aussi le programme qui suit le texte et voyez combien il est 
rapide : (Problem Program) 
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TRADUCTION DE L'ARTICLE : PROGRAMMERTECHNIEKEN 
DE F.H.DRUIJFF (Ne 18 P285) 


Voici un petit programme qui m'a été envoyé par koert Van 
Espen . Ce programme appellé " STAR - BUILDER " est 
relativement cours et simple,mais mises à part quelques 
petites fautes, les differents problémes ont bien été 
analysés et des solutions leurs ont été trouvées. D'un 
autre coté, les fautes et la facon d'aborder les 
problémes sont illustratifs du raisonnement de beaucoup 
de programmeurs et pas nécessairement des débutants. 


C'est pourquoi,je vais utiliser ce programme comme base de 
cet article avec bien sur l'accord de Koert qui savait 
pourtant que tout ce qu'il avait fait dans ce programme 
allait étre "critiqué". 


J'espére que vous prendrez la peine de lire le programme de 
Koert , de noter toutes les fautes que vous croyez 
rencontrer et de lire l'article ensuite. Cependant, il y a 
bien sur des points qui sont une affaire de gout et il est 
méme possible qu'il y en ai que j'ai negligé. Si c'est le 
cas, faites-le moi savoir je pourrai en tenir compte dans le 
futur. 


Vous trouverez le programme initial de Koert aux pages 285 
et 286 du n.18 


Comme vous pouvez 18 voir c'est un programme assez court, 
mais qui fonctionne relativement bien . Lorsque l’on 
étudie le listing, on remarque directement que 185 
numéros de ligne sont seulement des multiples de 10, cela 
me dit que le programme a été pensé mais encore revu avant 
d’être envoyé. Ceci manque souvent dans les envois car 
beaucoup sont content de voir le programme fonctionner.Le 
programmeur de metier devra encore faire un manuel 
d'utilisation après la derniere ligne de programme si 
celui-ci indique automatiquement les explications. Ainsi 
par exemple lorsque vous utilisez le DAINATEXT, il est 
indiqué sur la premiere page comment vous pouvez retourner 
au menu avec un SHIFT- RETURN, mais cela n'est plus 
indiqué lorsque vous entrez du texte!, de plus il n'est 
pas indiqué clairement la facon ou l'ordre dans lequel 
vous devez appuyer sur ces touches ! Mais attaquons 
maintenant la critique. 


Comme je 1781 déjà mentionné auparavant , je suis un 
adversaire de la question qui est faite à l'utilisateur pour 
savoir s'il veut connaitre les instructions quand celles-ci 
sont aussi courtes. Cette routine se trouve bien en fin de 
programme, avec des numéros de ligne logiques, mais elle 
contient deux RETURN ce qui est déjà moins bien réussi. 
L'ensemble aurait pu étre repris avec des GOTO, nous allons 
seulement de la ligne 29 en 19000 et ensuite retour en 
ligne 196. Si nous voulions plus tard incorporer un 
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HULP=SCRN (XX, YY): IF HULP -15 OR HULP =3 THEN ... 
Encore meilleur : 
IF SCRN(XX, YY)<@@ THEN ... 


mais cela ne change pas la faute, comment la résoudre? Il y 
a plusieurs méthodes disponibles en voici deux : 


1) Nous calculons le nombre d'étoiles que nous plagons, 
S'il y en a par exemple 28, alors nous devons attraper 
28 étoiles pour obtenir un nouveau terrain. Au lieu de 
tester litteralement si SCRN(XX,YY)s0, nous pouvons mettre 
le compteur à jour de la maniére suivante : 


TELLER-TELLER*1-SBN (SCRN (XX, YY) ) 


2) Nous choisissons un autre point et pour gagner du 
temps nous changeons seulement la valeur YY. 


200 FOR 051 TO 30: XX«RND (OX) 
216 YY -RND(Y): IF SCRN(XX,YY)<>@ GOTO 219 
220 NEXT 


Le double emploi de la boucle pour placer les points blancs 
et rouges me convaint des capacités de programmeur de Koert. 
Sans  étre plus original, mais suivant mon gout pour 
la lisibilité je placerais volontiers deux boucles FOR- 
NEXT separées. C'est à peine plus de travail et bien 
plus clair pour les autres. Mais sachez que la solution 
de Koert est éxacte. Un autre argument contre la solution de 
Koert est qu’ aprés la premiere boucle,on teste 

inutilement si 18 couleur 3 est encore présente. 

En ligne 800 G, GG et T sont remis a zéro avant le retour 
au début du programme . il aurait été préférable que 
cette initialisation se fasse au début. La mise a zéro des 
lignes 510 et 900 peut alors ne pas avoir lieu. Apres ces 
changements, la ligne 909 ne contient plus que 
l'augmentation de 5000. En fait nous pouvons seulement 
arriver dans 18 ligne 900 qu'à partir de la ligne 320,aussi 
on pourrait le faire à cette ligne et supprimer la ligne 
900. La ligne 800 peut aussi être supprimée aprés un petit 
changement . L’ENVELOPE ne change jamais et peut donc 
être mise dans l'initialisation. La construction du 
terrain peut se trouver en fin de programme on peut faire 
commencer ce bloc par quelques BETC pour contrer le rebond 
des touches, cela éviterait de commencer avec la derniere 
commande du jeu précédent. Le GOTO en ligne 209 ne me 
plait pas non plus, La détermination de la direction 
est essentielle et donc je la placerais en debut de 
programme. Elle doit en fait etre la premiere excepté 
l'initialisation. : 


La méthode utilisée par Koert pour indiquer combien 
de tours il existent encore est bonne et originale (voir 
lignes 120 et 156) bien qu'elle soit étrange. Il aurait été 
plus clair de l'écrire comme ceci: 
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CLEAR cela se ferait alors sans probléme. Avec un CLEAR 
le programme est d’ailleurs meilleur, essayez avec un CLEAR 
256 par æ. Les lignes 30,40 et 50 pourrait se trouver 
avec les explications, de facon à avoir un seul 

choix dans le programme. Au sujet de la ligne 50 : 


Se G=GETC : IF 6-45 OR 6-59 GOTO 190:ΒΌΤΌ 50 


Cette ligne 

réagit de la même manière que celle du programme, mais 
elle n’offre pas la possibilité d’inserer une ligne entre 
5ο et 14160. Les deux méthodes utilisent AND et OR, 
instructions qui demandent un temps supplementaire, 
voici une autre solution: 


59 G=GETC: IF G<49 GOTO S@:IF 8259 GOTO 59 


La méme remarque peut être faite pour la ligne 530. Koert ne 
savait apparemment pas, et en cela il n'est certainement pas 
le seul, que lors d'une combinaison de IF AND ou de IF OR, 
le DAI éxamine toujours les deux possibilités et les 
combine avant de prendre action. 11] est préférable de 
stopper dés qu’elle est fautive. Le AND et le OR sont 
plus faciles à comprendre comme structure, mais ne sont 
pas les plus rapides sur le DAI. Si la vitesse est 
importante, on peut utiliser plus de IF’s, et arranger 
l’ordre des test pour en avoir le moins possible. Le score 
est tenu à jour à la ligne 320japrés S deux éspaces sont 
imprimés afin que les derniers chiffres de la fois 
précedentes soient effacés . Considerez pour quoi deux 
éspaces sont nécéssaire et dans quel cas un seul n’est pas 
suffisant. Apres ce " ^", je verrais volontiers un 
73” pour eliminer le comportement énérvant du curseur. On 
pourrait aussi rendre celui-ci invisible par un POKE 
#75,32. En ce qui concerne la ligne 189, X+X est plus 
rapide que 2.0*X. L'utilisation des nombres 1.0 et 2.0 est 
correct car le RND fontionne plus vite qu'avec des 
entiers. Le INT est complétement inutile parce qu'il ya 
quand méme une adjudication à une variable entiére. 


Et maintenant la faute : Koert prévoit qu’il est 
possible qu'une 'etoile' vienne se placer à un endroit ou il 
yen a déjà une, il n'y en aurait donc que 29 (ou moins) 
et il ne serait jamais possible d'avaler 30 étoiles 
pour Obtenir un nouveau champ. Koert résout cela 
apparament bien en testant si la place est vide, si ce 
n'est pas le cas, il diminue le compteur de boucle de 1 
unité. Ce serait trés bon si le DAI permettait ce genre 
d'opération, car au debut de chaque boucle FOR-NEXT le 
nombre d'itérations nécéssaire est calculé et il n'est plus 
possible de le changer. Les modifications sur la variable O 
n'ont donc aucun effet. De plus j'ai des objections contre 
un FOR avec deux NEXT's. Le test méme pourrait être 
meilleur, non seulement le GR dont nous avons déjà parlé 
fais aussi la double comparaison de SCRN(XX,YY) prend 
du temps. Une meilleure solution serait : 
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255 DAInamic 84 - 23 


40 IF B-i THEN PRINT CHRS(255)+" "+CHR$ 1255) 
50 IF B-2 THEN PRINT CHR$(255)«" " 
66 IF B-3 THEN PRINT " " 


La ligne 60 peut méme étre supprimée par un CHR$(12) J'ai 
cherché une autre solution : 


46 PRINT MID$(CHR$(258)*" "4CHR$ (255) +" ",B*B, 3) 


avec un B qui varie de @ a 2, Je préferais en fait éviter le 
ΓΗΠ8 (253). Je mets alors la ligne concernée en ligne 1, et 
remplace le string qu'utilise MID# par "ΑΑΑΑΑΑΑ". Ensuite 
je passe en Utility pour tester ou commence le basic 
(normalement) #3EC s'il n'y a pas de CLEAR. On remplace 
alors les 4175 qui se trouve juste apres #3EC par FF 20 FF 
20 20 20 20. Pour ceux qui ne sont pas familiarisés par ces 
codes FF est un bloc noir et 20 un espace. Retour au basic 
et par l’intermediaire de EDIT modifier le numero de 
ligne. La ligne 336 ne me plait pas non plus. Il est 
logique de mettre GETC dans une autre variable pour 
conserver la direction originale, mais pourquoi n'y a- 
t-il pas de "point de punition’ lorsqu'un changement de 
direction est donné ? Donc remplacer le ON 88-15 GOTO ... 
par un GOTO 1100. Bien que le jeu soit rapide,  examinons 
la logique suivie; Dans la ligne 320 se trouve un test 
insensé ἃ moins que le dernier point ne soit un blanc 
(1). Dn peut aussi changer 14 ligne 330 le IF 68-0 devient 
alors IF GG{16, de facon a rendre le TAB et RETURN sans 
influence. J'ai aussi amelioré la beauté du programme en 
utilisant des entiers aux lignes 50 et 10050. Le resultat 


final paraitra dans Games Collection 12 sous le titre de 
STAR-HUNTER. 


(Trad. J.p. Mallien) 


SIMULATION DE GOTO X / RUN X EN SEULEMENT 7 OCTETS 
{Ne 16 P209) 
Avec le programme suivant vous pouvez simuler GOTO X et il est 
egalement possible de faire RUN suivi d'un numero de ligne en BASIC Vi.6 
sans vider la table des symboles, 
Pour inclure le programme dans l'ordinateur , tapez la ligne 
suivante en basic: 
16 DIM JMP ii): JMP (@)=#232344: JMP (1) =HADCEGEDF : JUMP-VARPTR (JMP (@) ) +1 
Maintenant JUMP contient l'adresse et UMPi@) , JMP(1) le 
programme. Faites attention , si vous avez un CLEAR avant i'execution de 
la ligne en basic, ΜΡίΘ}, JMP{(1) et JUMP prennent la valeur @ !!! 
Vous pouver utiliser mon programme selon les modes 
Ci-dessous : 
i ) Four RUN X tapez par exemple *X-1060:CALLM JUMF,X 
2) Pour GOTO X tapez par exemple #19 X-180 
#20 CALLM JUMP, X:REM GOTO X 
NOTE : X,JUMP,JMP(@) et JMP(D doivent etre entiers. 
{Voir programme et exemple d'utilisation en basic p209) 
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La Forteresse de ZLARG (P.Pedelaborde) 





Un super programme d'aventure, tout en français, 
dans l'idée des 'Donjons et dragons’. 

Arriverez-vous à détruire la forteresse de ZLARG 
tel est le défis que vous lance le maitre des lieux ! Mais 
attention, vous et vos hommes auront à subir, avant de 
pouvoir arriver à la forteresse, les assauts des monstres 
les plus fantastiques. (N'oubliez pas aussi de nourrir vos 
hommes, car un éstomac vide méne à tout !!!). Vous pourrez 
accumuler ies trésors, visiter des villages, y acheter tout 
le nécéssaire... 


Extrait de la liste des lodiciels 


Audio DCR 
Acrobates 90 Frs 115 Fre 
Centipéde 90 Frs 115 Frs 
Driver 90 Frs 115 Frs 
Super-Invaders 90 Frs 115 Frs 
DAI-Panic 120 Frs 145 Frs 
Pac-man 165 Frs 190 Frs 
Math-fun 150 Frs 175 Frs 
SPL (Macro-assembl eur) 165 Frs 190 Frs 
FUP (Traitement de texte) 300 Fre 325 Frs 
Toolkit 3 150 Frs 178 Frs 
Toolkit 4 150 Frs 178 Frs 
Toolkit S 150 Frs 175 Frs 
Games collection 6 115 Frs 149 Frs 
Games collection 7 115 Frs 140 Frs 
Games collection 8 115 Frs 140 Frs 
Games collection 3 115 Frs 148 Frs 
Games collection 10 115 Frs 140 Frs 
Games collection i1 115 Frs 1406 Frs 
Games collection 12 115 Frs 148 Frs 
La forteresse de ZLARG 145 Frs 179 Frs 
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6* Championnat International de 
programmes d'Othello-Reversi 


6th Othello-Reversi Programs World Championship 


Cher Monsieur, Chére Madame, 


Vous êtes intéressé(e) par le prochain Championnat 
d'OTHELLO-REVERSI. Je vous rappelle qu'il se déroulera 
en une seule journée, le 22 SEPTEMBRE 1984, en catégorie 
ordinateurs de table, et sur deux jours, les 22 et 25 


SEPTEMBRE 1984, en catégorie ordinateurs de poche. 


Ce 6ème Championnat se tiendra au SICOB, au CNIT-LA DEFENSE. 


Le lieu vous sera précisé ultérieurement. 


trouverez ci-joint : 
texte du réglement pour les catégories 
. ordinateurs de table 
et 
. ordinateurs de poche 
- un bulletin d'inscription à compléter et à nous retourner 


TRES VITE ! 


Bien cordialement, IN pra la LU Lo 


Brigitte MILLE 
Promotion 





L'ORDINATEUR INDIVIDUEL (Othello) 5 place du Colonel-Fabien 75491 Paris Cedex 10 & (1) 240 22 01 
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several questions with respect to 
one of the buffers. For small pro- | 
r the article of Frank Druijff in 


first. If already other programs 
that the heap-pointer 29B-29C con- 
be accomplished by simply pushing 
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ried out: | 
| size e.g 20000 ). 
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| A4/85 the end of 


d 
d 
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n buffer 1 of EWF. 
ed as 3320 (A2/A3) 





| start buffer 1). 
airy, 

his is done to by- 
uction in FWP. 





sand will find the 


and's like TRIM, MOVE etc. be given 
nswer is YES, it can as long as the 
a parallel printer routine) are not 
se addresses are free. 





















































ses in FWP V1.4 as listed below, by 


paragraph 4,0 of the FWP manual. 


ote: All addresses as listed in the FWP manual remain the same. 


fter having done this, it is possible to execute the main-menu commands 
MI, "E", "TU, HE nd "W", while working in the buffer, Type SHIFT/RETURN 
allowed by the relevant command key e.g "T", το improve the speed, the 
sual query message's have been ommited, so be warned ! 














WARNING 11 
Hr ME MEE AE AE Re AR PEHE FE E EFE E AE JE HEIE AE HE JEDE AE AEE AE EE AE ΚΚ HIE 
Do never the "T" command if you are modify-ing a BASIC program. * 
in mos 35 yOu will get a garbage. * 





HHI EH D'RE HE FE JE E PE AE IEE AE AE HE E FE IE EHE AE PEME HE FE AE E HE AE JE E FEFE AE E HE JE PE EE AE κκ κκ IIHR I A 
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The transfered BASIC program has 
and start of th instruction. 
to replace the 6 spaces by for 

statements cantaining 6 or more 
numbers end with o, ὦ 


always ὁ 


instance 
Spaces, 
Just replace O, 





followed by 6 spaces. 






The patches below incorporate 
(prin > output if you a 
worked until the EDIT commane 


also a 
? in Do . 
was given. 


routine which disables the  RS?Zz2 
In the standard version of FWP this 





To enable the ΠΕ 
in CéFD, 





Output you have to change the value of VS (vector 5) 





The ERROR message “MARKERS NOT CC 
time by changing the content of addr 






be displayed a much shorther 
resses IASE-1063 in OO. 

Finally I would recommend to te 
the patches have been typed 





t your new ve i F 

| - yO AW version first toc d 

“in correctly, : ο ον 
Tf you have found an interesting appli 
ons pls. do not hesitate to contact me 





ation, or have some Specific questi- 


Ger Gruite 





ahof 12 
JE Venray 
04780-84180 





—————————ÀÀ ÉL 


FWP MI, A PATCHES j 
Lu -3 object co 
DM ΚΑΚΟ 


oo 
CA 


SE 45 CA 98 18 FE AB CA Di 2A FE 


| CA GD 19 FE 57 CA 80 14 Cz 91 





SDA 21 E6 ZA 


Fat 








2ADi n i 
2AE 1 32 09 DA &B 09 C3 A& 09 AF το 
RAFI wil Ol 7E FE 02 F2 F2 24 πό 
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Spaces between the line-number 

Tf you don't like this, use the "R" command 2299 
. Be careful if there are PRINT 200° 

This could be overcome if the line- 202° 


5000 
5000 
3000 
5000 
ΦΞΕΙΑ 
Kee 
)3HE 
HEC 
CE 
D3CS 
Kier) 
D3CA 
DS 
O3CF 





ES 
210000 
223F03 
El 
CADSOF 
FEAS 
CA9818 
FEAB "` 
ΟΔΌ1 28 
FE4D 
CADFZA 
FES4 
CA6D19 
FES7 
CABOLA 
C3910F 


C3BAOZ 


“ΕΟ 1 
21802 
CD3zO9 
ΏΑΦΕΟΦ 
CIAOO? 
AF 
291805 
CIFOR 
FS 


213101 


CSFDCÓ 


cas vas ap as 


es e 


. FATCHI 


p 


KSHRT 


MSHRT 


FRCTRL. 


NOCHNG 


ΧΧΧ 4C 363036 9€ 4€ C € € ak HE € 363€ 3€9€ 9€ 36 € 3€ € 3€ 


# 


* FWP V1.4 PATCHES 


* 


# 


24-5-1904 * 


* 


363€ HR HE 3€ HE € 3€ 96 9€ € 9€ C MIE 9€ 3 9E Je 3€ C 3E HIE 36 36 36 36 004€ 


UNL. 
FUSH H 
LXI H 
SHLD 
POP H 
JZ 
CPI 
JZ 
CPI 
JZ 
CFI 
JZ 
CPI 
JZ 
CPI 
JZ 
JME 
UNL. 


LXI H 
UNL. 


JMF 
UNIL. 


MVI A 
STA 
CALL 

JC 

JMP 

XRA A 
STA 

IMF 
PUSH FSW 
LXI H 
MOV A,M 


MVI M 
POP FSW 
JMP 
UNL. 


OH 
STORES 


NL. 
E: 
REMSP 1 
"kr 


KSHRT 
"MI 
MSHRT 
ope 
TSHRT 
We 
FILLSP 
CURO 


PRCTRL. 
FATCH1 


1H 

FLAG2 
CHIZ167 
EMARE 
MOVT 1 











FLAGS 
MSHRT 1, 


11Η 
2H 
NOCHNG 
1H 


OCOF DH 
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b PART OF LISTING 

E E CURSOR FOS. 

PELEAR COUNTER USED IN 

PUE AND "WY ROUTINES 
;RESTORE CURSOR POS 

a MOVED INSTR. TO ALLOW PATCH 
ELIMINATE SPACES 


KILL TEXT BETWEEN 06-07 
;MOVE TEXT BETWEEN 06-07 
3 TRIM LINES 

WIDTH EQUAL (RIGHT MARGIN) 


;END PATCH, RETURN TO ROUTINE 
Pc FART OF LISTING 


LOAD VECTOR D 
H FART OF LISTING 


EXECUTE PATCHED INSTRUCTIONS 
FART OF LISTING 


a 
H 
. 
5 


3SET KILL FLAG "ON" 








;CHECK IF MARKERS ARE OK 
ΣΤΕ NOT, DISPLAY ERROR MSG, 
EXECUTE "κ" (EILL) COMMAND 
KILL FLAG "OFF" 

:CUTE "M" (MOVE) COMMAND 


SAVE CHARACTER 

;GET STATUS OUTPUT SWITCH 
IN ACCU 

ΝΟ CHANGE IF OUTPUT TO EDIT 
;OR VIA DOUT 

3SET OUTFUT TO SCREEN ONLY 
RESTORE CHARACTER 

3TO SCREEN RESTART (RST 5) 

H FART OF LISTING 
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This article is a conti 
22 page 141. 


DBASIC V2.1 page & 


nuatian of the article on DBASIC in newsletter 


NOTE : -Only functions added by DBASIC are described here 


ου every functior F 1 F n 8 Γι a 
Fo 1 On 8 very sma i i 
κ ο. à desc iptio nd eve itualy an 


+ DEEK (<integer expression?) 
-Returns the two-byte value at 


νὰ address location <integer 


ex. 18 HEAP-HZ9B 
26 PRINT “THE HEAF STARTS AT 
20 1 ADDR Wi 
36 PRINT HEX$(DEEK (HEAP) ) Ὁ 


+ ee name>, integer expression?) 
“When the value of <inte ion: 
i ger expression? equals m, th 
will return the value of the n-th dimension of ρα Kee 2 


ex. 10 DIM Α(19, 4) 
20 PRINT DIM(A, 1), DIM(A, 2) 


+ ERL 
“Returns the linenumber in which an error occured. 


vAn error-linenumber equal to zero means that a direct 


mode error has occured EP 


. 


| ex. 16 ON ERROR GOTO "TRAP 
28 ERROR 16 
i 1996. "TRAP PRINT ERL: RESUME NEXT 





*ERR 
-Returns the error number. 


| ex. 19 ON ERROR SOTO "TRAP 
| 29 ERROR 56 
1669 "TRAP PRINT ERR: RESUME NEXT 


+ERRS 


Returns the id ifi i C 
κο entification of the DBASIC-extension wich 


-If the error was generated ἢ 
ERRS is empty, g ated by a DBASIC statement or command then 


caused 
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ex. 16 ON ERROR GOTO "TRAF 
26 DCR 4:REW 1000 
1969 “TRAP PRINT ERRS,ERR:REUME NEXT 


note : DBASIC V2.1 DCR version only. 


+INTEGER (<floating paint expression?) 
-Converts a floating point value to an integer value. 
-Note the difference with the INT function : the INT function 
returns a truncated floating point value. 
-The INTEGER function can be usefull to convert expressions to 


the integer type before passing them as function parameters to a 
procedure or user-defined function. 


ex. 16 PROCEDURE TEST ΕΝ FUN 
26 PRINT FUN 
36 END PROC 


166 FOR I'=@.1 TO 1.6 STEF 9.1 
11@ TEST INTEGER (SBIN(I!)*10.0) 
126 NEXT I! 


*-I1STR$(integer expression?) 
-Returns a string representing the value of <integer expression”. 
-The ISTR$ function is familiar to the STR$ function, the  ISTR$ 
function however returns a string without added *.6" 


ex. 16 A-leoo00006 
26 PRINT ISGTRS$(A) ,STRS (A) 


-IVaR(Cinteger expression?) 
-Returns the integer value stored at memory location integer 
expressian?. 
-The IVAR function can be usefull to point into an integer type 
array. 


ex. 16 CLEAR 160060 
26 DIM A(18,16) 
36 FOR 156 TO 1@:FOR J-8 TO 16 
46 A(CI,J) 2IXJE NEXT: NEXT 
Sø FOR I=VARPTR(A(@,0)) TO VARPTR(A(1@,19)) STEP 4 
66 PRINT IVAR(I) 
76 NEXT 


*-NDIM(Zarray name>) 
Returns the number of dimensions reserved for ¢array name>. 
-Can be used in procedures and functions to test array-parameters 
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EX. 16 FUNCTION SUMLARR 
28.  REM---one diac z 
36 LOCAL SUM 
20 IF NDIM(A) 231 THEN ERROR 166 
56 ELSE FOR 1-6 TO DIM(A, 1) | 
66 SUM=SUM+A (1) e NEXT a 
78 END IF 

B8 ΕΝΞΘΙΙΜ 

96 END FN 


sional integer array sum --- 


*REAL (<integer expression?) 
DM integer value to a floating point value 
function can be usefull to convert expressions to th 
^ ie 


floating point t - 
ype before passi 
to a procedure or user-defined ος ως as function parameters 


EX. 16 PROCEDURE TEST FN z! 
28 PRINT Z! 
38 END PROC 


166 TEST REAL (XMAX) 


HVAR (<integer expression?) 
“Returns the floating poin 
“integer expression? 


=The VAR function can b i 
Ge Se e€ usefull to point into & floating point 


t value stored at memory location 


ex. 10 CLEAR 10000 
20 DIM A! (10, 10) 
36 FOR 1-0 TO 10:FOR J=0 TD 16 
30 A! (1, J) LATE NEXTENEXT : 
3 - 1 
p VARPTR (A! (0,0) TO VARPTR(A!(10,10)) STEP 4 
78 NEXT 


+VARS (Linteger expression?) 
“Returns the strin i 
g to wh F 
BE which memor 
-The 
VARE function Can be usefull to point into a string type 


array. It is possible το 5 i 
᾿ ort a \ Β 
Swapping the pointers to the pce ον Su Tom 


y location “integer expression} 


Ex. 10 CLEAR 1006 
20 DIM 4$(166) 
3@ FOR 159 TO 190 
49. ΑΦ(Τ)ΞΟΗΗΦ{Τ} 
Dë NEXT 
68 FOR I-VARFTR ῷ ο 
δις daer TO VARFTR (ΑΦ (180) ) STEP 2 
86 NEXT 
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PROCEDURES AND FUNCTIONS 


*Declaration 


-Procedures and functions always have to be declared explicitly. 
-Within a procedure or function declaration, other procedures or 


- functions can be declared. 


16 PROCEDURE PROMPT 
26 PROCEDURE HOME 
36 PRINT CHR$(12): 
46 END PROC 


. 96 HOME 


*Value parameters 


ex. 


66 PRINT "DBASIC V2.1" 
76 END PROC 


-Procedure PROMPT, called as PROMPT, will clear the screen and 
print the DBASIC V2.1 prompt in the upper left corner. Note that 
line 20 to 46 in fact declare a “sub-procedure’ of the 


procedure PROMPT. 


-ᾱ value parameter will be assigned a value equal to the 


evaluation of the matching expression in the caller. 


10 PROCEDURE FORWARD R 

26  XNEW!zX'*RXCOS (ALPHA!) : YNEW!=¥!+R#51N (ALPHA!) 
36 IF PEN=DDWN THEN DRAW X!,Y! XNEW!,YNEW! PENCOL 
46 END IF 

Dë  X!zXNEW!:Y!zYNEW! 

4@ END PROC 


196 FORWARD XMAX/2 


-Executing line 180 will draw a line with length equal to XMAX/2. 


ie FUNCTION FAC! (NM) 

20 IF Nep THEN FN-1.6 

3e ELSE FN=N#FAC! (Ν-1} 

4% END IF 

Só END FN 

6@ FOR 150 TO 1@:PRINT FAC! (1) NEXT 


-Executing line 66 will print 9! to 16! (faculty). 
-Mote that FAC! is defined recursively. 


ie FUNCTION SEC!(tX!)-1/CD08 (X!) 
26 FUNCTION CSC! (XC!) 21/8IN((CXC!) 
36 FUNCTION COSH! (X)=(EXP (CI) +EXP(-X!) 72.0 
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Wariable parameters 


“Variable parameters will r 
efer t i ari i 

the procedure- or nette crane. s ο ο; 
EX. 16 PROCEDURE SWAP VAR A$, ΕΦ 

26 LOCAL HELPS 

3e HELP$-4$:6$-B$:B$-HEL PS 

46 END PROC 

199 HELLOS="HELLO": BYE$=" BYE" 

119 SWAP HELLOS, BYES 

126 PRINT HELLOS, BYES 


-The effect of the 


proced v 
the contents of var ure call SWAP HELLOS,BVES will be that 


iables HELLO and BYES will have been swapped 
+Array parameters 


“Besides unsub i i 
scripted variables 
e you can also 
arrays to a procedure or function. transfer complete 


EX. 18 DEF FN MAX (ARR A) 
20 LOCAL I,MX 
| 36 FOR I=@ TO DIM(A, 1) 
| 40 IF ACI)2MX THEN MX=A (1) 
50 END IF 
60 NEXT 
70 FN=MX 
86 END FN 


166 PRINT "THE MAXIMUM RATE IS":MAX(RATE ()) 


-In this example RATE is a one 
-Note that the arrays to pass 
be noted as “array name>(), 


-dimensional integer type array. 
to a procedure or function have to 


| *Function parameters 


| “Function par r i 
| ameters will refer to the corr 
i corresponding expressi 
in the procedure or function caller. "2 Expressions 





9X. 10 FUNCTION INTEG! (LOW! HIGH! ! 
E !'STP! VAR X! ΕΝ Z!) 
380 FÜR X!=LOW! TO HIGH! STEP STP: 
10. TOT!-TOT!4STP ! x7! " 

| Sé NEXT 

| 60 ΕΝΞΤΩΤΙ 

| 76 END ΕΝ 

190 PRINT INTEG! (0.0, P1, 0,1 

! (6.6, PILO. 1, X LSIN(CI)) 
116 PRINT INTEG! (0.0, F1/2, 0. 1, Y! , COS (Y!)) 
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-The function INTEG! calculates approximatly the integral of a 
mathematical function in the interval LOW! to HIGH! (the surface 
between the function and the x-axis). 

-Note that the argument of the function is transferred as a 
variable parameter. 


+Local and global variables 
-The variables whose names are used in a procedure or function 
heading to specifie value-,variable-,array- or function-parame- 
ters will be local variables : Their value will not have been 
changed after the procedure or function call 


ex. 16 PROCEDURE DUMMY I 
26 150 
36 END PROC 
199 I=16 
118 DUMMY I 
126 PRINT I 


-However when you call a procedure or function with variables, 
exactly the same as used in the procedure or function heading to 
specifie variable- and/or array-parameters, these variables will 
be global. 


x. 1@ PROCEDURE DUMMY VAR 1 
26 1-6 

3e END PROC 

166 1516 

119 DUMMY I 

126 PRINT I 


m 
x 


-The LOCAL statement allows you to define extra local variables. 
-β11 other variables will be global to the procedure or function. 


+Easy programming 
-The following example shows how easy programming could be done 
using procedures (and functions). 


Bu. d REM scent ttes ινε ας η 
2 REM --- DEFINITION TURTLE COMMANDS ——- 
3 REM esse τροπο ών 
19 PROCEDURE PENUP:PENFLAG-O:END PROC 


26 PROCEDURE PENDOWN:FENFLAG=1:END PROC 

36 PROCEDURE FORWARD Rs XNEW!=X!+R*COS (ALPHA!) : YNEW!=¥!+R*SIN(ALFHA!) 
46 IF FENFLAG-1 THEN DRAW X!,Y! XNEW!,YNEW! PENCOL:END IF 

Do X'=XNEW': Y'=YNER!:END PROC 

Aë PROCEDURE BACK R:XNEW!=X!-R*COS (ALPHA!) : YNEW!=¥!-R*STN (ALPHA!) 
78 IF PENFLAG=1 THEN DRAW X!,Y! XNEW!,YNEW! PENCOL:END IF 
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Sid X! 2XNEW! : Y NEW! : END PROC 
9 PROCEDURE LEFT TETA: ALPHA! =ALPHA!+TETAXPI/186. 


; o 
196 PROCEDURE RIGTH TETA: ALPHA! =ALPHA!-TETAKPI/180 SEND bes 


“G:END PROC 


SC GE CLEAN: FILL 9.0 XMAX, YMAX O:END PROC 
οι URE SQUARE Le PENDOUN: FOR INDEX=1 TO 4 

2 ORWARD L:LEFT FO: NEXT: RIGTH 369: PENUP:END PROC 
366 PROCEDURE ΕΕΝΤΑ L: PENDOWN: FOR INDEX=1 TO 5 


310 FORWARD L: D : 3 
Loo RE we DILEFT 72:NEXT:RIBTH 366:PENUP:END PROC 


1916 REM ---- START ~~~ 

1620 REM ------------..... 

1959 MODE &:COLORG ὁ 5 8 14 

8 ΣΡΕ =5 
1646 X! ZXMAX/2: ΥΙΞΥΜΑΧ/2 CH 
1959 FOR 1-56 TO 16 STEP -1 
1969 PENTA I:FÜRWARD SILEFT ΞΙΝΕΧΤ 


-In this Example a few “turtle Commands are defined as 


procedures (PENUF, PENDOWN FORWAR Σ 
these ‘turtle’ ; FORWARD, BACK, LEFT, RIGTH) . Combining 


commands in Procedures as SQUARE a 
H nd PENTA all 
you to draw more or less complex shapes with a single ieee ` 


9. DBASIC EXTENSIONS 


"Why extensions 


Eois Statements and commands ara 
ne ce θύμον e graphical commands (ex, Turtle grap- 
. operate I/D-devices tex. Memocam-MDCR) 
Pesci ue on purpose : not everyone will use the araphica? 
aie E of the DAI-pc ore will have a DCR-drive connected 
Ero s if neccessary, these Special graphical commands or 1/0- 
9 packages can be integrated in DBASIC. They can be 


grouped in so-called DBASIC- 
ο... SE EXTENSIONS, loaded and relocated ar 


Principally added for struc- 


+$SYSTEM extension 


-$SYSTEM is a DBASIC extension, 
other extensions and/or delete ¢ 
are not needed anymore, 


~$SYSTEM Contains 2 commands : ΦΕΧΤΕΝΡ and $DELETE 


designed to extend DBASIC with 
rom DBASIC the extensions which 


+$EXTEND <string Expression: 


puse ox s for the extension file ($-type) with name 
Ἢ H expression? and load it int 
the Heap. The command t i mite DBAS C 
. able ink 
Eran code coe E εκ, be linked to DBASIC and the 
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+$DELETE ¿string expression: 

-This command will search in memory for the extension with name 
equal to <string expression). If the extension is in memory, the 
extension command-table will be masked out and the memory 
occupied by the extension is released if the extension is 
located just below the Heap. 


ó. ERROR REPORTING 


*DBASIC error reporting: 
, DDBASIC has extended error reporting capabilities. A total of 56 
^ error codes are known by DBASIC. Of thes 54 error codes 21 are 
detected during compilation. Besides DBASIC error codes you can 
define your own error codes by using an error-number greater 
then any error-number used by DBASIC ( 255 for DBASIC V2.1). 
These user-defined error codes will be reported as : 


"ERROR nnn Cin line nnnnnl' 
*DBASIC extension error reporting 


-Besides DBASIC error-reporting, there is also a DBASIC-EXTENSION 
error-reporting. 


-Thus extensions, like the Memocom-MDCR driving package, can have 
their own error-codes and error-messages. 
ex. -The command "DCH 19” will generate the error-message : 
"DCH DRIVE NUMBER QUT OF RANGE’ 
-The command "ΠΕΝ 1906411’ will generate : 
“DCR FILE NUMBER QUT OF RANGE’ 
You can expect more DBASIC news in the next issue's. In the mean time 
I wish you much succes with DBASIC-programming. 


Willy Coremans 









PRES 1 


ZZA 
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Le samedi 20 octobre 1994 
. c k (de 9 à 18Η) à Ni Ξ i 

lieu le ps meeting international ayant pour objet, le DARE VEHI iura 
decns. Ἔα ee τ cet ordinateur, isolés DU regroupés aux seins 

: Cette manifestation excepti inci 
Vinos m : íiceptionnelle. Les d 
SS Al, CAROLODAT, DAIC, DAINAMIC et MICRODAI seront représentés ος 
poser us visiteurs leurs services spécifiques Eas 
ώς [ο ας de cette journée sera fonction de chacune des associations 
ο... i KR SE Principale du meeting est avant tout de favoriser les 
ας E I. férents utilisateurs du DAI (parfois un Beu isolés) et 
Sia PN de es d dn pour eux d'échanger leurs vues et expériences mais 
νεο i Soe ES projets communs valorisant le DAI. Les néophytes pourront 
ο... eee ee un Peu plus expérimentées afin de résoudre des 
de ᾿ quie Ph iers. Le maximum de nouveautés tant au niveau hard (un nouveau 
ge i SC e Sf oe au public. Bref, tout ce qui se fait de ης 
: κ espérons, i i i i 
Bun Erie πας ο re dans ce meeting internatianal qui 


De plus, une tomb 5 ; d 
société INDATA! ` ombola sera organisée et un prix sera offert par 18 


COMMENT SE RENDRE AU MEETING?» 


a GE η JARIS-ERUXELLES; entre Charleroi et Bruxelles, sortie 
NIVELLES- EE e Kë e meeting a lieu dans les batiments du MOTEL-RESTAURANT 
Nil ο. parking 400 places est à la disposition des visiteurs, Four 
Mae a qui souhaitent loger sur Place, le prix des chambr - 

n 000 FB (140 ΕΕ}, Un centre commercial se trouve à pedi ie La ps 





meeting. 
His a mer a 
ADRESSE: Ís i 
ler MEETING INTERNATIONAL DU DAI P 
i B.E. 
MOTEL "NIVELLES-BUD" 
Chaussée de Mons 
NIVELLES BELGIUM 
ENTREE: 


50 FB OU 8 FF, 


RENSEIGNEMENTS: 
Fabrice DULUINS; (0257 / 22.82.10 
allée Tour Renard 4, Β-1400 NIVELLES 






Christian POELS: (0041 / 37.15.04 
rue des Has-Sarte 10, B-4100 SERAING 


Mo, they axpott 


NE: Ex d μι à d'éventuelles nouvelles participations de 
iculiers ou de clubs, Contacter si i les S 
ar Si possible les re s (2 
Ci-dessus) avant le ler octobre, afin de réserver un τ DEL 
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Bmpufon Yot keg! 


COMMANDES RENDES 


Test de matériel : Ken Dos. 


Dans ce test, je ne vous parlerai plus de la vitesse 
ni de la qualité du Ken Dos qui vous ont été décrites 
suffisament dans les précédents numéros. Je me pencher ai 
surtout sur les instructions du système et plus 
particulièrement sur leur syntaxe, Ce test ne se veut donc 
pas trop critique. 

Voici donc, une description de ces fameuses 
instructions (certaines sont mieux décrites que d’autres, 
mon excuse : je n'ai pas mon système depuis longtemps.) 


Lexique : (8) syntaxe 


(D) » drive numéro 
(N) = nom de fichier 
(d) = adresse de départ 
(f) = adresse de fin 
de plus, les indications entres paranthéses () ne sont pas 
obligatoires. 
- BAS : (8) : BAS 
Donne les pointeurs BASIC et permet de les 
changer. Tres utile pour travailler avec des 
programmes comme, par exemple, FGT. 
- BUF : (5) : BUF (nd "(x)" 
(n) = numéro de buffer (1-5) 
(x) = EDT : édite le buffer (n) 
Ξ PRT : imprime le buffer (n) 
= CLR : efface le buffer (n) 
= SET : initialise le buffer (n) 
Cette commande vous permet de créer des disk- 
buffer, ce qui vous permet d'utiliser 
n'importe quel programme machine avec votre 
ken Dos. . 
~ CAS : (8) : CAS 
Branche tout le système sur cassette audio 
pour la lecture et l'écriture des programmes. 
~ CLR: (8) : CLRID) 


Déprotége la disquette contre le formattage. 
(voir plus loin, commande PRT?) 


(S) : COM(D) ou COM(D)," GO ΑΝ)" 
X = (+) le fichier peut tourner en 
auto-run 
(++) fichier auto-run 
(&) fichier de commande 
0 le statut du fichier est 
effacé. 
Permet de créer des fichier de commandes 
(nouvelles) en auto-start. Cela permet 
d'étendre la table des commandes, 


7 COM 





-1- 
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~ CPM 


~ DCR 


~ DIR 


~ DNA 


- FUP 


- GET 


~ KEY 


7 LIB 


7 PRT 
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(8) : CPM 
T che le Système sur le CPM (optionnel), 
le CPM n'est Pas encore terminé.) 


(8) : DCR 
Branche tout 1e 5 

ystéme sur cassette digitale 
Pour la lecture et l'écriture des programmes. 


M VR d ou DIR(D) "A" ou DIR(D) "I" 
- ne toutes les inf i 
ene ormations sur les 
Is Sous-directory (utilisation future) (222) 


Donne le director i i 
fichiers). Y de la disquette (liste des 


Fonctions supplémentaires : 
~barre d'espace : fichier suivant 
"curseur gauche : LOAD fichier 
ο. droit τ LOAD+RUN fichier 
TURN * retour au mode commande 


(8) : DNA 
Branche le Systéme sur le DNA, CALLM2000 


n'est plus nécessaire. Le DN i 
€ ; A 
évidemment en mémoire ! ο 


(8) : FWP 
Branche le systéme sur le FWP, UT/22/6466 


ne sont plus nécessaires t i 
évidemment an mémoire ! odii 


(8) : GET (D) " (N) , x un 
xX = numéro d'enregistrement (1-25 
XX = buffer numéro (1-5) τ 
Les buffers doivent d'abord avoir été 
crées à l’aide de la Commande *BUF* 
ον. (voir plus haut). 
i "enregistrement (x) du ficher (N 
A, 
Place les données dans le buffer (xx), 


(8) : KEY ou KEY(?) ou KEY" (D) , (N) " 

Permet de former des ‘touches fonctions” pour 
obtenir sur la simple pression d'une touche 
la commande * SAVE” (voir plus loin) ou 18 
commande “HELP? (voir plus loin). 


C'est tr ès utile pour la mise au point des 


(8) : LIB ou LIBI 
LIB donne une liste des c 

E Ommandes du Ken D 
(library) et LIBI donne une liste des T 
Commandes d'extensions. (crée avec 
l'instruction *COM*) (voir plus haut). 


(8) τ PRT(D) 


ο. 
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+ PUT 


- SPL 


« TEST 


- TIME 


- WCAS 


CLOSE 


VOICE 


BACKUP 


- COMPAC 


- CREATE 


- DELETE 


- FORMAT 


- LPRINT 


Protège la disquette contre le formattage et 
donc, l'effacement des programmes. 


(8) PUT (Din (QD xxx" 

Enregistre le buffer (xx) sur le track 

(le secteur) (n) sous le nom (N). (commande 
GET) (voir plus haut). 

(8) SEL 

Branche le système sur le SPL. (voir plus 
haut, commandes 'FWP' et ΝΑΣ). 


(8) : TEST(D) 
Teste le drive (D) et branche les opérations 


de lecture et d'écriture sur ce drive. 


(8) : TIME(D) 
Donne l*heure à l'écran ou l'écrit sur le 
disque, la carte optionnelle TIME doit etre 


présente, 


(8) : WEAS 
Branche les routines de lecture sur le disque 


et les routines d'écriture sur les cassettes, 


(8) : CLOSE(D) " (ND " i 
Ferme le fichier spécifié pour l'écriture. 


(8) : VOICE" ($)" 
Envoie les données alphanumériques au 
synthétiseur de parole (optionnel). 


(8) : BACKUP (Din (0 " 
Copie intégralement la disquette du drive (D) 
sur la disquette du drive (X), 


(8) : COMPAC(D) "(xX)" 

Copie les fichiers non-deletés de la 
disquette se trouvant dans le drive (D) sur 
la disquette du drive (X). 


(8) 1 CREATE (D) " (D , (x) xx" 
x = type de fichier (UTY,BAS,RND,...) 


xx = nombre de blocs de ik bytes, 
Cette commande crée (ou agrandit) des 
fichiers sur la disquette. 


(8) : DELETE(D)" (ND " 
Efface le programme (N) de 1a disquette se 


trouvant dans le drive (D). 


(S) : FORMAT (D) 
Formatte la disquette dans le drive (D). 


(8) : LPRINT(n) ou LPRINT" (d), €" 
{n)= numero de buffer (1-5) 


-ᾱ- 
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= MANUAL 


~ RENAME 


~ RESTOR 


7 UNLOCK 


7 VERIFY 


~ LOAD 


- SAVE 


~ DLOAD 





= DSAVE 


~ LOADA 





- SAVEA 
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Envoie les données vers la RS-232. 
Si (f) est suivi de ''', le données sont 


alors prises de la R8-232 et mises en mémoire, 


(8) : MANUAL (D) 
Lecture ou écriture manuelle de secteur ou 


tracks de la disquette se trouvant dans le 
drive (D), 


(8): RENAME (D) " (N) , (n) " 
fn) = le nouveau nom de fichier, 
Rennome un fichier d'une disquette, 


(8) : RESTOR (D), "(N)" 
Redonne l’accet & un fichier delete 
(voir plus haut * cam. DELETE), 


(8) : UNLOCK(D) ou UNLOCK (D) " (N) " 
Déprotege un fichier ou un disque, 
(voir plus bas Commandes LOCK et CODE.) 


(8) : VERIFY(D) ou VERIFY (D) " (N) " 

Vérifie tous les secteurs de la disquette se 
trouvant dans le drive (9). 

(8) : LOAD" (D) (N) " 

Charge un programme BASIC. 


(8) : SAVE" (p) (N) " 
Sauve un programme BASIC. 
REM : LOAD & SAVE fonctionnent comme en BASIC 


(8) 1 DLOAD (D) " (N), (d) " 

Charge un programme machine à patir de 
l'adresse (d) (cette adresse est optionnelle) 
Si (d) est suivit de "ir, la commande "OUT OF 
MEMORY" ne S'exécutera pas. C'est utile pour 
le chargement des copies d'écran). 


(8) : DSAVE (D) " (N), (d), (£)" 
Sauve un Programme machine sur la disquette. 


(5) * LOADA" (D) (N) " 
Lit un fichier de données, 


(8) : SAVEA" (D) (N) " 
Ecrit un fichier de données, 


REM : LOADA & SAVEA fonctionn 
κος. nnent comme sur 


(8) τ R (D)(N) 
Charge un fichier machine. 
4° : comme la Commande DLOAD, 


(5) : Wid) (F) (D) CN) 
Sauve un fichier machine. 


-ᾱ-- 
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— BANK 


~ CODE 


- COPY 


- DATE 


- DISK 


- FIND 


- HELP 


- INIT 


— KILL 


- LOCK 


REM : R & W fonctionnent comme en BASIC. 


(8) : BANK (GO s (xx) 

(x) = numéro de la banque 

(xx) = nom du programme à lancer 
Charge des données de la banque d'EPROM, 
Cette méthode est trés rapide. Par exemple, 
FWP (avec lequel j'écris cet article) existe 
sur EPROM, pour le charger, il suffit de 
faire : BANKI:FWP ...1/4 de seconde de 
patience et le programme est lancé. 


(8) : CODE 

Permet d'entrer un code pour la lecture et 
l'écriture de programmes (ou de disque) 
protégés par la commande 'LOCK' (voir plus 
haut). Le code est numérique et est de 5 
nombres. 


(8) 1 COPY(D)"(N), G0" 
(x) = numéro du drive d'écriture 


Copie un programme d'un disque.à l'autre. 


(8) : DATE 
Entre la date en mémoire. 


(8) : DISK 

Branche les commandes de lecture et 
d'écriture sur le disque. Par exemple aprés 
la commande 'DCR' (voir plus haut). 


(8) FIND(x)"($)" ou FIND"($), (d), C£)" 
($) = une variable alphanuméri que 


(x) = un numéro de buffer (1-5) 
Cherche une suite de bytes en mémoire ou dans 


un buffer. 


(8) HELP 
Donne à l'écran un menu d'ou vous pourrez 


tirez des explications condensées (mais 
claires) du fonctionnement de certaines 


commandes. 


(8) INIT(D) 
Initialise un disque : date et nombre de tracks 


par face (49 ou 80 selon le système). 


(8) KILL(D)" (N) -- 
Efface définitivement un fichier deleté 
(voir plus haut commande 'DELETE'). 


(8) LOCK(D) ou LOCK(D)" (ND " . | 
Protége un disque (ou un programme) al abris 
des regards indiscrets Qu des maladroits. 
Quand la commande LOCK est tapée, c'est le 


---- 
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code actuel le ent en mémoi re qui est 
gistr e equis pou i 
enre r Fr une pr h 
tré et D ne prochaine 


7 NAME (8) NAMED)” (x) " 
(x) = nom de la dis uett 
Cette fonction nomme 1 riim 
f 8 disquette (le 
apparait lors du directory). deg 


7 OPEN (8) OPEN(D) " (N) " 
Ouvre un fichier pour l'écriture, 


- RCAS (8) RCAS 
Branche 1a lecture s 
: ur les cassett 
l'écriture sur les disquettes. T 


SWAP (8) SWAP (x) 
(x) numéro de buffer 


Inverse les d 
dU butter i onnée du buffer (x) avec celles 


Remarques générales : 
Si l'on ne précise pas le numéro du drive à employer 


dans une comm 
ande, le Ke isi 
drive ©. , n Dos choisira automatiquement le 


Dans la nouvelle i 
la t version du DOS, il s i 
Se sri curseur gauche pour obtenir un θεια, Ee 
guette se trouvant dans le drive 6 ctory de la 


Voilà, c'est à 
de . Vt peu prés tout, j’esper 
scription vous aura interresé (du pU ος κ... 


Marc VANDERMEERSCH 


E. mulu αμ 


REM TUNE YOUR FLUTE / 

E / GUITAF ) i 
ρα TONI TUA ITAR, By Emil Zahner CH Goia Affoltern 25.12 82 
PRINT C 3 ο. 
PRINS HRE (12): PRINT SPC (23) ; "TASTEN / KEYS":PRINT » 
PRIME CHRE (136) 3" ein/on "SCHR$(137); NEU UE Ma 
να, ee "SEHRS (#7F+95);" tiefer/down "SCHR ii 
PRINT " y 9 Hertz (Schwingungen / εψε] s)"; SE 

1 X Abweichung / Off" eis 
S-GETC:G-BETC:G-GETC 
G-GETC:IF G<1 THEN 2e 
IF B- =TON+ 
iE mae TN ο @6 9 6 FREA (ΤΩΝ) 

= —1: S0 5 T 

IF 8-18 THEN SOUND OFF μα ΠΗ 

G= 
ma THEN SOUND o ao @ ΕΠΕΒ (TON) 
Garp Se 3 ΣΤΟΝ, : GOSUB 190:1F CURY«cZ B50T0 5 
TONP !-100* TÜN/TON! 
PRINT " "3 TONP ! 168: RETURN 


*COMMANDES KENDDS* 





ARRAY oon ABA 


The DAI Basic doesnot allow arrays with subscripts which 
are higher than 254. In programs which handle a lot of data, 
it is often very usefull if bigger arrays could be used, 
like in other type cf personal computers. 
To overcome this problem, more than one array could be 
dimensioned. But this doesnot simplify finding data in the 
arrays, or sorting the contents. 


of multi-dimensional arrays. fin 


Another method is the use 
example will demonstrate it: 


---- IMF INT ---- 
100 DIM NS(A, 254) 


number >O; its maximum value depends an the 
space (CLEAR). For 600 array-elements, "^ 


giving 3 times 255 elements. 


87 must be a 
reserved heap 
must be at least 2, 


To fill this array with 600 data elements, the following 


routine must be used: 
(Hr is 600) 


1000 FOR X-1 TO N | 
1010 N&(X/255, X-(X/ 25S) X258) 5" ee ee 


1020 NEXT 


The first 254 elements are stored in N$(&O,1) thru NE (O, 254), 
the second 254 elements in N$(1,—) and the rest in N#i2,—-). 


Using the subscripts *X/255,X-(X/255) X255)" in all other 
routines which have to handle the array data allow easy 
number of array elements which is only limited 


access to a 
by the maximum dimension of the heap (32K). 


(c) — Jan Boerrigter, Febr. 1984 


d 
— ο 


CORRECTIONS FIRPIIARE PIRE. 








The following updates can be made in your copy of the DAI pC 
firmware manuals 


#C1E9: Sign extend routine, must read: 


RLC — RLC - RRC - RAR — RET 


4UC311: Label LC71 must reads JP s:C316. 


Micro Service has no copies of the "DAI pC Firmware manual" 
available anymore. Frinting of a new edition is not planned, 
unless at least 100 copies are ordered. 


Jan Boerrigter — August 1784. 
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ise 


REM DAI 48K 748288-PRÜM-TABI ES { MEYSTRE or o: 

CLEAR 1999 

DIM MASK (7) T$ (4) ,R (127) sRESTORE 

FOR 1-9 TO 7:READ MASK (I): NEXT 

FOR I-1 TO 4:READ TEI NEXT 

ADR=VARPTR (R (@)):a=apR 

FOR 156 TO 7:FDR J=@ ΤΟ 15:REAp B: POKE A, Br A=At{: NEXT: NEXT 
RAM=ADR: FOR T-1 τη 4 

PRINT ΓΗΠ8 (12) : CURSOR 18,22: PRINT "748288-PROM ":T$(T) 
CURSOR 4, 20: PRINT "ΡΗΟΜ-- 96060000000000001111111111111111" 
CURSOR 4,19:PRINT “ADDR. 91234557890BCDEF01234557895BCDEE " 
POS=17:FOR I=@ TO 7: CURSOR 9,PDS-I:PRINT 7-I:NEXT 

FOR PROMADDR-e TO 31: PROMDATA=PEEK (RAM) : RAM=RAM+1 

FOR 1-6 To 7: CURSOR 1@+PROMADDR, POS- T 

IF PROMDATA IAND MASK(I}=@ THEN 200 

PRINT "1":80TD0 216 

PRINT "o" 

NEXT 

CURSOR 19*PRÜMADDR, 8: PRINT HEX$(PROMDATA SHR 4) 

CURSOR 19+PROMADDR, 7: PRINT HEX$(PROMDATA IAND SEI 

ΝΕΧΤ 


CURSOR 4,8:PRINT "PROM-« 

CURSOR 4,7:PRINT "DATA « 

CALLM ΦΡΕΏΑΙΝΕΧΤ:ΙΘΟΤΟ 100 

DATA 128,54,32,15,8, 4,2, 1 

DATA pose DOT", "BREEN-DOT^, "RED~DOT", "YELLOW-DOT" 

DATA Ir μας BO 155 107: 907, 877, 877, ASB, ASB, 453, 55, 7b, 87B, 473,473 
DATA BPE AEE. μια μμ Bl tee ee 
DATA E e ΜῈ, #FF AGE ISE APR M E US 
DATA EE EE 
DATA ga’ ao” want ΠΑΣ, HSB, #68, #CB, ος 
DATA 809, #00. 427 toe! MAO, #48, MO, MAG, 440, #48, hao, M48, ΚΑΘ᾽ wan ni Tae 
DATA 499, van’ 427 a 107, 800, HF, #40, 800, Kon, HOG, #06, zoe” Roc ie ΒΘ 
DATA NEOs MA0, #27, #20, 407, 000, BAF, AA, 40A, Kon, HOS, wos. ROG wos RO ΜῈ 


74S288-PROM BLUE-DOT 


PROM- 00000000000000001111111111111111 
ADDR. 0123456789ABCDEF0123456789ABCDEF 


11111111000000000000000000000010 
11111111111111111111111100000000 
00110011000011110000111100000000 
I1111111111111111111111111111110 
00000000110011001100110000000000 
00001111000000001111111100000000 
11111111111111111111111100001111 
11111111111111111111111111110011 


ONE 


PROM- DDFFDDFF555577775555777711111190 
DATA 33337777BB33BB33FF77FF7711112233 
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745288 PROM GREEN- DOT 


PROM- ος ο MONTRE ES TET 132 TT 
ADDR. 0123456 789ABCDEFO12°4 36 7SUABCDEF 
7 110111011100110011011103 1100* 100 
6 13110111111101111111117: 7:;^11111 
5 ο ΕΕ ,1111 
4 111111111101111111111:.2,:113111 
3 111111111111111111111 7051313110 
2 1111111 
1 111111111111111111111:.:,1:11101 
D — 410001000100010001000 in 1000100 
PROM- rF5BFF7FFF63FFTTFFTFUFTVIEEFTTEETT 


DATA  EFEEEFEEEFEEEFEEEFEEEFAOGELEEEFCO 


74S288-PROM RED-DOT 


1111111111 
PROM- 0000000000000000111111 
ADDR. 0123456789ABCDEF0123456789ABCDEF 


000000100000000000000000000::0000 
11111111011111111111111111111111 
00000100000000000000000000000000 
00001000000000000000000000000000 
11111111101111111111111111111111 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 


ONWAAR 


^A 5A AA AA 


PROM- 444456C40444 A3 A ENS 
DATA  SHSSSHSSRSUBRSSSSSESSSSSSRN 





VE" 
zx 
FA 
Qv 
GE 


T4S288-PROM YELLOW - DOT 


8 8 1111111111 1111 
PROM- O00000000000000011 de 
ADDR. 012345678Y¥ABC DEF O 123456 789ABCDEF 


1100000000000n01511100000000000000 


00000011000000600000001100000000 
00110000000000000011000000000000 
0000000000U00111110000000000000000 


1100001i110000111100001111000011 
00101010001111110010101000111111 
101010111117111111010101111111111 
10101010000000101010101000000010 


ο. D © E 0 


PROM- 85220044000000113822004400000000 
DATA ΒΒΤΩΤΟΕΑΑΑΘΘΘΘΕΕΒΒΤΟΤΟΕΔΑΑΘΘΘΘΕΕ 


*PROM DATA* 
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SAVEA & LOADA 


Deze instructies laten toe 


op eenvoudige wijze array!s 
(rijen getallen of tekst) o 


p audio cassette of DCR te bewaren 


SAVEA QZ izet array QZ Op cassette 

LOADA TEKST$ :laat de cassette lopen tot de DAI een 
Strook tegenkomt die hij (zij 
als array ( 


?) herkent 

aengeduid door een cijfer 2 
vóór de titel). Deze array wordt gelezen 
en in array TEKST$ geplaatst. 

Ondat de (Engelstalige) handleidin 


8 ορ dit punt nogal vaag, 
onvolledig, verwarrend, 


en soms zelfs fout is vatten we de 
Spelregels nog eens. samen: 


1. Elk array dat Je wil bewaren of inl 
gedimensioneerd worden, 


één tekst wil bewaren, 


ezen moet op voorhand 
zelfs als je slechts één getal of 


b.v. 19 DIM TEKST$ (Ø) 
26 INPUT TEKST$(g) 
39 SAVEA TEKST$ 


2. Je kan een array een be 


paalde titel meegeven op cassette. 
Deze titel kan ook een var 


iabele zijn! 
bev. 16 DIM GETALLEN (19) 


ee 


199 SAVEA GETALLEN " Meetresultaten! 
Op de cassette vind je deze 11 


getallen terug (met b.v, 
CHECK) onder de titel: 


2 Meetresultaten 


duidt op array 


Een ander voorbeeld: 


18 DIM KIP (199) 


19 INPUT "Welke maand";MAAND$:PRINT 
11ØFOR I£-1 TO 199 


12ØPRINT "Hoeveel eieren heeft kip nummer ";1%; 


" deze 
maand gelegd Vë: 


#SAVEA & LOADAs 





139INPUT KIP(I#):PRINT 
14ØNEXT 
2ØØSAVEA KIP " Legresultaten van de maand "+MAAND$ 





naam titel 


3. De naam van de array wordt niet op cassette bewaard. 
Het is dus niet nodig dezelfde naam te gebruiken bij het 


opnieuw inlezen. 


b 1# INPUT "Geef een getal, kleiner dan 256";AANTAL%:PRINT 
‚bev. 

29 DIM AZ(AANTALZ) 

39 FOR IZ =Ø TO AANTALS 

49 A&(1%)=RND (199) 

50 NEXT | | 

66 TITEL$="Een reeks van "+STR$(AANTALZ)+" willekeurige 

getallen" 
76 SAVEA AZ TITEL$ 


ese 


200 DIM B#(255) 

219 CALLMĦFØØØ: REM KEW1:LOOK (enkel voor DCR) 
220 LOADA Pi 

230 FOR 1ζ-4 TO 255: PRINT B#(I%):NEXT 


Uit dit voorbeeld blijkt tevens dat bij het inlezen het 
array (B) groter mag gedimensioneerd worden dan het array (A) 
T 


dat op cassette staat, 


Wat kan er allemaal fout gaan? 


1. Programma's of data die al op cassette stonden kunnen 
ο... worden. DCR-gebruikers kunnen dit voorkomen door 
ov | i 
an het begin van elk programma volgende regel in te lassen: 
a r 
CALLMHF#99 :REM SKIP 


2 Het arra J g nh array da 
D d y dat e wil inlezen is roter da et t 
e edimensioneerd hebt, Dit resulteert n eer JOADING ERROR 
8 


3, Het array dat je wil inlezen is van een ander type dan het 
ο, dat je gedimensioneerd hebt (FPT, integer of string): 
op het scherm verschijnt: "TYPE MISMATCH IN LINE xx" 
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4. Een "OUT OF MEMORY"-fout is mogelijk bij het bewaren of 
inlezen van tekstarrays. Omdat de inhoud van zo een tekst- 
&rray verspreid kan zitten over de heap wordt hij eerst 
gecopieerd in het vrije gedeelte van de RAM, zodat hij een 
aaneengesloten geheel vormt, en pas dan geSAVEd. 


grec 













T [ 1 
Systeem- {| HEAP | | vrije RAM schermgeheug; 
RAM | ! | 
l eventueel | | Symbol table 
machinetaalpr, | 
(zoals FGT) 1 tekstbuffer 


Als deze vrije RAM te klein is 
Wat valt daar tegen te doen? 
1. 


krijg je een foutmelding. 


De arrays opsplitsen in kleinere blokken 

2. De heap verkleinen met een aangepaste CLEAR 

3. Overgaan naar een MODE die minder Schermgeheugen 
vereist (b.v. tekstmode) 

5. Je wil Schrijven op cen cassette die niet 
("toegankelijk gemaakt") is. 
het programma loopt dan vast 
krijgt. Druk je op de BRE 


"write-enabled' 
Dat is nogal vervelend, want 
zonder dat je een foutmelding 
AK-toets, dan verschijnt 

***BREAK op het Scherm , i.p.v. het bekende ***BRREAK IN 


LINE xx, zodat je niet kan verder gaan met CONT 


a Microprocessor interfacing 


NEW ADDRESS : 


MIPI P.0.B. 160 1616 AD BOVENKARSPEL the Netherlands 


262 DAlnamic 84 — 23 SAVER & LOADAs 














TELEPHOR) 


FAGE oi -- TELEFHON 

18 REM . 

Be REM m 
REM ` 
REM 


REM- SC Ὃ e 

MODE O:PRINT CHRS(12):COLORT ὁ 1 4 &:PDKE #BAZD, #54 E 
PORE #BA27,ASC("T"):CURSOR 6, 12:PRINT "ELEPHONE TERROR 
CURSOR 18, 16: PRINT "A Hini-Super-Thriller by Rolf Schall 












149 PRINT PRINT TABL) "Turn up volume and wait ..." 
ise ENVELOPE 9 6, 






CH i 16 6 FRED(SS.6) 
189 WAIT TIME 560 


REM ... TELEPHOMHOERER 
COLORG 6 1 ὁ 1:MODE ὁ 










7.0: RDO1!zRI'«RI1!: 
=-150,6 YMS'=124,6 


9 TD 6,0: Y!sSOR(RDI!-X ETA 


SR UR RAZ EROS Ge 












276  DOT XM'«X', EAV! 17:DOT XN!-X!, Nah) 17:DOT SE au, YMB eX! D9:DOT 

pa Si YMS!-X! I9:NEXT | | 

abe. pub J «58.0 TO 0 Or Y «SOR (NOD (avi) DON XMIAX!, YMY! ITPDDT XMi-X!, 
YEE! 17 n 

, 9:DOT XMS4Y!, YMB!-X! 19: NEXT 

285 DOT XMS'«Y!, YMS!«X! 19:DOT XMS'«Y!, YMS!-X! 19; ` 

3 PR X--52.0 TO 0. Or Y'-GOR(RGS!-X SX D DOT XM!+X!,YM!+Y! 23:DOT XMI-X!, 
VELA! 23:NEXT 

295 ΕΗ... APPARAT 


FOR 11516 TO S.G:READ X1!,Y1!,X2!, Y2! 


1 DRAW XM!*X1'!,Y1! XM'-X2!,Y2! 17: DRAM XMt-X11, Y1! We 17 
1 DRAW Y1!-YN! , YMS EHC! Y2!-YM! , VMSI+X2! 19: DRAM Yi'-YM'.YMS!-x1 
1 Y2!-YM!,YMS!-X2! 19 


bou) EAD Xi',Y1!',X2!, Y2! 

FOR I!z1.0 TO 11.0:REA 1!,Y1!,X2!,Y2! f SEN 
DRAW XM!-X1!,Y1! XM'-X2!.Y2! 23: DRAW XMi-X1!,Y1! XM!-X2!,Y2! 23 
NEXT 


m 








REM ... WAEHLSCHEIBE 











28.0:R4!220,6 








ὶ 08(1 D XW!=X!/1 ü:rYW!zY!/1,B8 
DOT HS!-X'.MC'RY! 253 DOT Wii, MI et 2E DOT 





Ze DOT ΜΒ NI H ANM 23:DOT MSEX, MCL - Vd! 
ZiMEXT | ve 
4.@:R3!=5.0:R4'=4.9:F0R I'-PI-P! TD D o#P TEP! 





456 F!zPI/7.0:R1 

STEP Pi 
SôtaRl! 
1.8 a 


i *SINUIIIAMS!:DO!-R2'ECOSCIU HMCIIFOR jJ!-0,6 TO PI/2.0 STEP 
i 
76 z x 
1 
1 
1 











DOT 8 , 25: DOT S8'-X',Coó!'-Y! Z23:DOT Se'-X!'.CÓ!-Y! 233 DOT 
E Hat Ae KEN 1 


READ N'!,6!:86 OR Ji=1.6 TO At 








499 READ X1',Y1'. X2!, ΥΣ D! X2!480!, YZ!+CØ! 23:1NEXTINEXT 
560 FILL 194,76 136,84 23:FILL 105,77 135,83 20 we 
516 DRAW XM!+30,55 XM!-17,57 25: DRAW XM'429,54 KMI+16,66 23 
528 DRAW XW'451,56 XM!-16,58 23: DRAW XM!+31,57 XM'*16.68 23 


1880 REM ... KLINGELZEICHEN 
1816 REM 
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PAGE 


8998 
89993 
92000 
9016 
9828 
9638 
20645 
9059 
92060 
9070 
9080 


9699 
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THEM 1560:G608UB 29000:NEXT 





THEN 1566:G60GUE 2000: NEXT 

o SOUND OFF 
TO 800:1F ΒΕΤΟ: 
GOTO 1616 






B THEN 1500: NEXT 





REM ... FREITON 

COLORG 6 & 1 I:ENVELOÜPFE 6 15 

WAIT TIME 1@;SQUND OFF :WAIT TIME 66: SOUND ὁ © 15 à FRER(260.@) 
FÜR Ι!-1.9 TO S.@:NEXT:SOUND OFF :WAIT TIME 5 

SOUND ὦ ὃ 5 6 FREG( ) 

FOR I'=1,68 
WAIT TIME 
iF INT(RND( 









X DND 1 6 5 & FRER(A40, 0) 
‘SOUND OFF :COLORG ὁ 1 ὁ 1 
306.8))¢31.0 THEN 1569:G0T0 1010 





REM .......«.. KLINGEL - UP, 

WAIT TIME 1:08-(0841) MOD Z:ENVELOPE 1 15,8:5,8:0:SDUND OS 1 10 ϐ 

FREQ (2000, 0) 

OS=(05+1 MOD 3:SOUND OS 1 5 6 FREG(S29) : RETURN 

DATA 55, 124,61, 118, 108, 132, 110, 125, 110 

DATA 12€ 120,95, 120,95, 111,85, 6 
26,96, 41,118,111, 95,59, 105 

4,46, 118,46, 118,62, 40,42, 40,59,32,59,3 

DATA &2, 40,67, 72,47, 72,52, 122, | 

DATA 59,18,57,48,57, 48, 68, 68, Af 














REM sue. MUMMERN-GRAFIK-DATEL .......... 
REM .... MUMMERSTRICHZAHLX1YIX2YZX1 usw.... 

DATA 6,5,0, 1,6 ; TEE 4.501,25, 
DATA 1,5,1,0,3,0,2,0,2,6, 1,5, 1,5 e 
DATA 2,5,6,0,4,0,1,1,7,2,4, 4, 4,5, 1,6, 5, 5,0, 5, 0,5 
DATA 3,6,0,1,0,1,1,0,3,0,4,1,4 
DATA 4,2,0,2,2,5,0,2,4,2, 2,0 
DATA 5,5,0,1,0,1,1,0,7,0,4, 1,4 
DATA 5,5,1,0,2,0,0,1,0,3,4, 1,4 
DATA 7,5,1,0,1,2,2,2,4, 5,0, 5, AE 
DATA 8,7,1,9,2,0 


DATA 9,5,1,0,3 

























,9,1,0,2,0, 


3,4, 2, 4,5,0,4, 0,5, 1, 











ΤΕΙ ΕΡΗΟΝΗΕ 


ο” 





EDWGATICORN oo 


De Natuurlijke getallen (deel 1 : verbale factoren) 


De Natuurlijke getallen (deel 2 : kennis) 
De Natuurlijke getallen (deel 3 : 
Het probleem van Fagnano 


rekenregels) 


Berekenen van determinanten : informatie 
Berekenen van determinanten 
verschui vingen 


SECUNDARY EDUCATION TAPE 6 











Deze nieuwe onderwijstape van het diDAIsoftlabel bevat drie programma's met 
multiple-choice vragen over de verzameling der natuurlijke getallen. 

Deze tape bevat verder een programma dat het probleem van Fagnano illustreert 
en oplost, 

Enkele programma's in verband met de eigenschappen van determinanten en het 


samenstellen van verschuivingen sluiten deze didactische programmareeks af, 





Het ontstaan van goniometrische functies 


SECUNDARY EDUCATION TAPE 7 De cyclometrische functies 


Het ontstaan van kegelsneden 
Veeltermbenadering voor sinus en cosinus 





Een eerste programma van deze diDAIsofttape illustreert het ontstaan van 

de goniometrische functies SINUS en TANGENS, Terwijl een punt over een go- 

niometrische cirkel loopt , genereert een ander punt de grafiek. 

Deze tape stelt vervolgens elke leraar wiskunde in staat om zijn didactisch 
handelen bij het aanleren van de cyclometrische functies aan te vullen met 
een vlotte constructie van deze functies op zijn DAI-microcomputer. 

Visueel voorstellen hoe een ellips, hyperbool of parabool ontstaat kan met 

de volgende programma's op deze tape 7. 

Deze verzameltape wordt afgesloten met een programma dat het benaderen van 


de sinus- en cosinusfunctie door middel van veeltermen demonstreert, 


Functies van de tweede graad 
Definitie continuiteit 


E 
SECUNDARY EDUCATION TAPE 8 Definitie afgeleide 


Rationale functies 
Methode van Newton 





Een systematische opbouw van de functie yk naar de functie y=ax +bxte 

wordt behandeld in het eerste programma van deze derde nieuwe diDAIsofttape. 
Vervolgens bevat deze tape programma's đie vrij moeilijke definities zoals 
continuiteit en afgeleide grafisch zeer knap toelichten en ondersteunen. 

De rationale functies worden algemeen bestudeerd ἆοοτ middel van het volgende 
programma. Alle elementen komen aan bod : asymptoten,grafiek,nulpunten, opper- 
vlakte onder de kromme,extreme waarden. 

Het laatste programma op deze tape demonstreert de methode van Newton bij 


het bepalen van nulpunten van functies, 


Bruno Van Rompaey wenst alle auteurs van deze programma's van harte proficiat, 


. rekent op een blijvende inzet en belooft hen deze programma's zo snel mogelijk 


te zullen toezenden, 
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Frogger 


by T.ROGER 














Frog is a game for one player 
where you must lead your family of frogs 
Safely across the multi-lans motorway 
dodging the traffic, You must also cross 
8 treacherous and fast moving river with 
many currents to catch your family 
unawares, Move your frogs across one at 
a time avoiding the ever increasing 
traffic and river populated by many 
crocodiles and turtles. 














Cross the road by jumping your frag 
inbetween the fast moving vehicles as 
any contact is deadly and you lose one 
of your five lives. Cross the river 
by jumping log to log or use the 
crocodiles backs if you are brave. Step 
onto the tutles if you dare, but beware 
of the ones that dive because your frog 
oe swim. Once you have crossed 

e river, jump your fr i 
vacant holes, "n iL QE 










Avoid the holes Occupied by the 
hungry crocodiles as you will be invited 
to dinner . Collect points for getting 
a frog safely to it s hole, and bonus 
points for getting the whole family 
home. Collect some more points by 
jumping on any flies that appear, but 
make sure you are not cought by the 
snake. As the game progresses, more 
traffic takes to the roads, and more 
crocodiles populate the river. 











Don t think this game is easy, as 
your family has one final enemy. Your 
family is on the run from the dreaded 
French Cheff, who will cut your legs 
off if you take too long. Therefore, 
keep an eye on your time. 









GOOD LUCK ... 


RENE SLASSIG 
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TOOLKIT (8 KEN 


One Key commands. 

This little program ables you to enter all BASIC keywords 
with only one keystroke in command-mode as well in EDIT- 
mode. Extra flexibel due to automatic start-up. 





Mirror, Zoom. Shrink. 

& three in one program. 

Mirror performs a reflection of a mode 6 picture on the 
other half of the screen. 

Zoom enlarges the picture, Shrink reduces the picture. 


Wipes. 


Fourteen magnificent ways to mix video signals using 
blue-keying. Speed is adjustable in four steps. 


Font SX7. 
A new font for CHARGEN 1.0. Three-color characters from 
A-Z and @9 in a matrix of 5X7. CHARGEN 1.0 included. 


Mona Lisa. 
This is the picture you have been waiting for. 
Madonna carressing a DAI Fersonal Computer. 


Leonardo's 


Mona Lisa animation. 
This program makes your Mona Lisa smile, grinn, raise her 


shoulders and blow up her cheeks. Adapt it to other 
pictures by changing the data. 


CHARGEN 1.9 Table creator. 
Create your own font or pictures with this program. 


Sundown. 
Shiver-free simulation of a sunset. 


Ribani animation. 
This program moves an object across a mode 2 screen. 


Adapt it to other objects by changing the data. 





10. New Format listing. 
Leaves a free 


The perfect listing for BASIC programs. 
line before BEN "e, indicates level of FOR-NEXT, cuts no 


BASIC keywords, prints page numbers and titles etc... 
Most of the extra features can be switched off to obtain 
a conventional listing. Linelength and pagelength are 


adjustable. ee listing of TELEPHON-program p. 263-264 in this issue) 


11. DCR-Directory. 


No more searching on your DCR tapes. This program does 
it for you. It brings the tape in position for every 
file you want after showing a menu of the tape contents. 
BASIC programs can be LOADed and RUN automaticcally if 
desired. 

with build-in directory printout routine ! 
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Tangram, the centuries old chinese puzzle,now available on your 


DAI-computer. | 
The comparison between Tangram and an ordinary puzzle holds on- 


PHOENISX 






Yourmission is to destroy à most original airbase of the mysterous 
PHOENIX-colony but first you have to succeed in 5 other missions : 







mission 1 : A first fleet of 14 phoenix-birds moving around 
in the sky , their eggs are dangerous bombs. 
You get 199 points for each hit. 
When you succeed in killing them you can pass to: 













mission 2 : A second fleet of 12 phoenix-birds ‚same size , ly good in such an extent that by both puzzles the ο. Es 
other color ,faster and much more dangerous. to make one recognizable drawing with a number of severa 
If you are still alive (you have 5 bases) you pieces. ^ gel 
try the next battle : An ordinary puzzle is made by a lot of different as 

mission 3 : 9 eagles fly around in a very realistic way. pieces put together in only one way to make a result that is 






already known from the beginning. | . 
On the other hand Tangram is made by only seven geometric fi- 
gures who can be put together in a hundred ways. | . 

The fascination lies in the variety of ways in which these 
pieces can be put together. 

The seven figures of Tangram can be cut out of one square. 


PON 


Putting together those seven figures to one square would be 
rather difficult without the solution as given up here. 

The rules are very simple. All 7 pieces must be used for each 
drawing and are laid next to one other, never on top of one 
other. 

After loading the program (load : run) you can create your own 
drawings by taking each one of the seven figures. , 

With the "cursor keys" you can move the chosen figure up and 
around the "working-screen" (mode 6A) and with the keys "s" and 
">" you can rotate each figure. ; 

When you have created a drawing with the seven figures you can 
save it on DCR or cassette. 

Gn tape you will find 15 examples made by Tangram. 


They can dive and attack your base. They can 
change into eggs, change to an indestructible shape 
and become bird again... 
In the bird-state, you have to hit them 3 times 
before they die. 
still alive ? ... you can try 
mission 4 : 8 red eagles do attack your base in an even more 
strategic way ! They are faster and more aggresive 
than the previous fleet ! 
If your fight is successfull you can pass to: 
mission 5 : 16 fleet of rockets , all of them indestructible, 
all you can do is move your base around and 
avoid collision ! 
If your reflexes were good enough, you are 
ready for the final big battle : the ΡΗΩΕΝΙΧ- 
air-base. 
mission ὁ : There is no time for admiration of the beautiful 
picture, the fight must go on: 
In the middle of the ship sits a little green 
monster : this is the one you have to hit. 
Don't forget the last PHOENIX-bird » he is also 
indestructible and attacking all the time ... 
Bombs are also falling from the centre of the 
ennemy~base, exactly where you have to hit him. 
The airbase has to be hit in a break-out style 
but be fast, the ship does regenerate after some time! 
To complete yourmission, you have 5 bases, a laser-canon and a 
protection-shield with time-limit. 
You get an extra base on 5000 points. 
PHOENIX is more than one game : in fact it is a super collection 
of spacegames with an exiting satisfaction if you ever reach 
the final mission 6 ! 
PHOENIX is totally in machinelanguage and was written by 
Pascal Janin, 16 years old . 





































SUCCES BY PUZZLING AND A LOT OF FANTASY AND 
DRAWING PLEASURE BY CREATING NEW DRAWINGS WITH 
TANGRAM 
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Turtle-BASIC features a subset of LOGO and structured 
programming facilities such as REPEAT-UNTIL and WHILE-WEND, 
together with all the DAI-BASIC statements. 

The subset of LOGO Comes in three different languages, 
English, Dutch and French to meet your children’s wishes. 










i i | sociale geogratie 
English z Dutch ¢ French 2 sociale geografie " 
TURTLE SCHILDPAD TORTUE 

FORWARD VOORUIT AVANCE 

BACK TERUG RECULE 

PEN UP PEN Op LEVE PEN 

PEN DOWN PEN NEER BAISSE PEN 

PENCOLOR PENKLEUR COULEUR PEN 

HIDE VERBERG CACHE SP 

SHOW TOON MONTRE 5 Gë 

RIGHT RECHTS DROITE * ; € 

LEFT LINKS GAUCHE E 

TURN i maar TOURNE” à ciale geografie education education 
ERASE WIS EFFACE 

CLEAR SCREEN OPNIEUW RECOMMENCE 

CLEAN UITVEGEN ESSUYE 


The other commands and statements are : 





LLIST, LPRINT, HOME, REPEAT-UNTIL, WHILE-WEND, DOKE, DEEK, üe- wes ec ο cg ae C rea A 

i RESTORELINE, SWAP, IF-THEN-ELSE, INVERSE, NORMAL, PUSH, POP. 
Turtle-BASIC is written as a Semi-compiler and linked into | 
DAI-BASIC, therefore no CALLM's are needed. Program's are | - "im AGEN a φαί. even, À À 
exchangeble between the different languages. À demonstration : frogger eagles 
program is included. à 























Ne, | i | : ` | Ges 


Eagles is a 160% machine language space game with many 
levels and beautiful features, You have to shoot many 
different space-monsters before they hit your base... 
Splendid graphics and sound, amusement for hours ... 
Eagles is written by Benoit Gortz. 























veiseexs = 6000 pts 
les cartes “EXPEND 1,2,3 © 


phoenix : mission 3 


phoenix = phoenix : mission 1 
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